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ABSTRACT 


Previous investigations of oscillating (harmonic) flow past circular cylinders via the discrete 
vortex method have met with limited success due to a variety of reasons. These assumptions have proven 
to be too severe, and cannot allow the prediction of the kinematics and dynamics of the oscillating flow 
about bluff bodies in general and about a circular cylinder in particular. 

In the current analysis, the ambient velocity was given by U = U,, sin ot, and the velocity 
distribution and the boundary layer were calculated about the cylinder at suitable time intervals. Several 
methods were implemented to predict Separation, all of which required a minimum of arbitrary 
assumptions. Nascent vortices were placed at the separation points in such a manner that the Kutta 
condition was satisfied. Several functional forms of dissipation were investigated, but it was found not to 
be of overriding influence in the flow kinematics. Counter vortices were found to be a necessary aspect of 
the analysis, providing continuity from one half cycle to the next. Flow visualization experiments were 
conducted for a Keulegan-Carpenter number of 10 as a basis for comparison. The kinematics obtained 
from the numerical model produced a vortex shedding pattern which was typical of those observed 
experimentally for higher Keulegan-Carpenter numbers. Significant problems were encountered in the 
prediction of boundary layer separation. 

At this point, it was obvious that the interaction of a vortex with a boundary layer warranted 
analysis in a much simpler flow situation: the blade-vortex interaction (BVI) problem proved to be ideal. 
A boundary layer code which predicted separation on an infinite flat plate under the influence of a line 
vortex was adapted to the BVI problem, so that it could be used with a semi-infinite plate in a flow field 
comprised of a free stream and numerous discrete vortices. Although data are not readily available for the 
comparison of force and moment data on a semi-infinite flat plate, the kinematics resulting from the 
interaction of the primary vortex and the shed vorticity are most encouraging. The kinematics and 
approximate relative strengths of the shed vortices are in agreement with the observations of several 


researchers. 
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NOMENCLATURE 


Amplitude of flow oscillation 
Downstream offset distance of primary vortex above plate 


Maximum value of asymmetry (Chapters IT - IV) 
Also, dissipation parameter (Chapter V) 


Cylinder radius 
Time-dependent Bernoulli constant 
Added mass coefficient 


Inertia coefficient, C,, = 1 + C, (Chapters IT - I'V) 
Also, moment coefficient (Chapter V) 


Drag, coefficient, Cy = Fg IpcU> 

In-line force coefficient, Cy = Fi IpcU~ 
Lift coefficient, C, = F; IpcU> 

Cylinder diameter, D = 2c 

Force 

Thwaites’ boundary layer shape factor 
Ja 

Impulse of a vortex pair 

Imaginary part of a complex quantity 
Keulegan-Carpenter number, K = 27xA/D = U,,T/D 
Length of cylinder 

Pressure 

Streamwise flow in boundary layer 
Complex velocity, q = u+ iv 


Radial distance 


r* 


Core radius, r* = 1.24Vvt 

Reynolds number, R = U,, D/v 

Vortex Reynolds Number, R, = I’/27v 

Real part of an imaginary quantity 

Linear coordinate along cylinder surface, s = cO 
Time 


Period of flow oscillation (Chapters II - IV) 
Also, Thwaites’ boundary layer shape factor (Appendix A) 


x-component of velocity 
Ambient flow speed 
Maximum ambient velocity 


Velocity on inner side of the shear layer at separation (Chapters II - IV) 
Also, plate reference velocity, U, = U primary / 7a (Appendix A) 


Maximum velocity induced on plate, Uptate = Uso + V primary /77a 
Outer boundary layer flow speed at separation point 
y-component of velocity 

Radial velocity due to a vortex 

Complex potential function, w=o+ iw 

Longitudinal coordinate 

Transverse coordinate 

Complex variable, z = x + iy 

Complex conjugate, Zz = x —iy 


Modulus of z 


Greek symbols 


B Frequency parameter, = R/K = D*/vt (Chapters II - IV) 

Also, nondimensional velocity ratio, B = U./ Upiae (Chapter V) 
r Total circulation of a vortex 
é Boundary layer thickness (Chapters II - IV) 


Also, nondimensional boundary layer calculation coefficient, 
= g U(in U)’/v (Appendix A) 


5° Boundary layer displacement thickness 

A Difference operator 

At Time step 

s) Angle, measured counter-clockwise from positive x-axis (Chapters II - IV) 


Also, boundary layer momentum thickness (Appendix A) 


Coe Stagnation angle 

v Kinematic viscosity of the fluid 

vi Eddy viscosity 

p Density of the fluid 

t Nondimensional cycle time in radians, t = 2zt /T 

les Wall shear 

rX Thwaites’ dimensionless boundary layer parameter 

a Dimensionless distance along plate, & = x/a 

n Dimensionless distance in boundary layer normal to plate, n = y/g 
> Potential function 

x Nondimensional vortex dissipation parameter, X? =r /Tt 
ae Stream function (Appendix A) 

yw Stream function (Chapters II - V) 


Also, nondimensional boundary layer calculation coefficient, y = g°UE‘/v (Appendix A) 


o Vorticity, @ = Ov/Ox - Ou/dy 


> 41 


Subscripts 


amalg Amalgamated 


cop Center of pressure 

COV Center of vorticity 

1V Due to imaginary vortices 
JE), Plate leading edge 

n n-th vortex 

nv Nascent vortex 

O Initial or original 

rv Due to real vortices 


uf +d Due to uniform flow plus doublet 


v Due to velocity squared 

vort Due to real and imaginary vortices 
ee) Condition at infinity 

x Partial derivative with respect to x 
Superscripts 

1 Image vortex 


j Nondimensionalized quantity (Chapters II - I'V) 
Also, derivative with respect to distance along the plate (Chapter V, Appendix A) 


* Physical velocity component 


a Vector quantity 


Kil 
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XIV 


I. INFRODUCTION 


The interaction of vorticity with a bluff body constitutes one of the most complex problems in 
fluid mechanics. Even without the influence of vorticity on the body, many aspects of the problem are 
already exceedingly difficult, and render accurate numerical simulation of the phenomenon almost 
impossible. For example, the seemingly simple case of a circular cylinder in impulsively-started flow is 
an unsteady kaleidoscope of fluid mechanics phenomena where the shed vorticity does not return to the 
body. With the addition of approaching vorticity, whether shed from the same body or another, the degree 
of difficulty of the problem increases by a least an order of magnitude, as exemplified by an oscillating 
cylinder or by a helicopter blade seeing its own vortex. 

Perhaps the most challenging of all these approaching vorticity problems is that of harmonic 
flow, wherein the vorticity shed by the body in previous cycles returns to the body. In analyzing a 
sinusoidally oscillating flow, the most serious difficulty is the description of the time-dependent forces 
acting ona body. Stokes [1851] arbitrarily decomposed the time-dependent force into an inertial force 
and a drag force, which were linearly dependent on acceleration and velocity, respectively. Whereas 
Stokes’ analysis was based on unseparated flow, the case of separated flow still poses significant 
difficulties for theoretical analysis. Nearly a century after Stokes’ paper, Morison et al [1950] conducted 
experimental studies on the forces on piles. In the analysis of their data, they divided the force into a 
component due to drag (as obtained in the case of constant velocity) and a component due to the fluid 


acceleration. Accordingly, a drag coefficient C , and an inertia coefficient C_ were introduced into the 


expression for force per unit length: 
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where U and dU/dt represent the ambient flow velocity and acceleration, respectively. As contrasted with 


Stokes’ results, the drag force in the Morison equation 1s proportional to the square of the velocity, 


reflecting the fact that the drag is predominantly pressure drag (rather than skin friction) since the flow 1s 


now separating from the cylinder. The assumptions and limitations associated with the use of the 
Morison equation are manifold, but it has still proven to be of significant worth in many engineering 
applications. 

In the case of ideal flow, C,, should be equal to 2 for a circular cylinder; it would also appear 
reasonable that C,, would assume a value close to its steady state value for a viscous flow (about 1.2 at 
moderate Reynolds numbers). In practice, both C, and C, have shown significant deviations from the 
above-mentioned values. The question which arises is: which values of C, and C,, are most 
appropriate for use in the Morison equation? 

Keulegan and Carpenter [1956] performed the first systematic evaluation of Fourier-averaged 
inertia and drag coefficients, working at relatively low Reynolds numbers with horizontal plates and 
cylinders placed in the node of a standing wave. They employed a Fourier series representation of the 


force, assuming it to be an odd-harmonic function of t = 2zt/T , so that F(t) = —F(t +7), and have 











shown that 
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Alternatively, C,and C, may be determined through the use of the method of least squares (Sarpkaya 


and Isaacson [1981] ), which seeks to minimize the errors between experimentally measured and 


calculated forces. This procedure yields 
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and 


= dt: (1.5) 








It should be noted that Equations (1.3) and (1.5) are identical; although Equation (1.4) is not identical to 
the value obtained through a Fourier analysis (Equation (1.2)), the use of both equations 1n practice shows 
no significant difference between these alternative formulations. 

Sarpkaya [1976, 1978, 1981a, 1981b] has shown that: 


e Not only do C, and C_ depend on K and R, but also on the relative roughness of the cylinder. 


e The Morison equation represents the measured force with reasonable accuracy in the inertia- 


dominated (K < 10) and drag-dominated (K > 20) regimes. 


e nthe drag-inertia dominated region (10 < K < 20), the Morison equation is incapable of 
accurately representing the measured force with sufficient accuracy. This was first pointed out by 
Keulegan and Carpenter [1956]; the large difference between measured and calculated forces 
(termed “residues” by Sarpkaya) are due to the occurrence of relatively large lift forces, fractional 


shedding of a few vortices, and asymmetries in the in-line force. 


In the drag-inertia dominated regime, the flow patterns associated with relatively few vortices 
become exceedingly complex; the Morison equation utilizes constant, averaged, force-transfer coefficients 
which do not incorporate the complex history of the flow. Sarpkaya [1981la] has performed a detailed 
residue analysis wherein higher odd harmonics were incorporated, thereby significantly reducing the 
magnitude of the residues. 

The foregoing discussion has pointed out how controlled laboratory experiments have aided in the 
understanding of the many and interrelated facets of an extremely complex and highly nonlinear problem. 
Mathematical or numerical methods have been utilized to obtain nearly exact solutions of some loading 


situations; this class of problem pertains to the flow about large bodies in the diffraction regime where the 


ratio of the characteristic body dimension relative to the wave length is greater than about 0.2, and viscous 
and separation effects are considered to be of minimal impact. The hydrodynamic loading situations 
wherein the effects of diffraction and separation are of equal significance are those with which the current 
work is concerned, and are also those which are the most practically significant fluid-structure interaction 
problems. Theoretical solutions are non-existent for separated bluff-body flows, even for the relatively 
simple case of steady unidirectional ambient flow, wherein the vortices are allowed to interact with one 
another and the base of the body, but are continuously convected downstream, never to return to the 
generating surface. 

Aside from the first studies into the gross aspects of wake formation by von Karman [1911] and 
Bénard [1908], some of the most meaningful investigations into the details of the bluff-body vortex 
shedding process were performed by Fage and Johansen [1928], Gerrard [1966, 1967], Bloor and Gerrard 
[1966], von Schmidt and Tilmann [1972], Roshko [1954], and others. As pointed out by Cisotti (see 
Birkhoff [1950]), it soon became evident that an ambient two-dimensional flow about a two-dimensional 
bluff-body did not result in a two-dimensional wake. Prandtl (see Sarpkaya and Isaacson [1981] ) noted 
that only a portion (roughly 60% for a cylinder in unidirectional flow) of the original circulation survives 
beyond the wake formation region. The Navier-Stokes equations, when used in conjunction with some 
Suitable spatial and temporal differencing technique (finite difference, finite element, etc.) to numerically 
simulate separated bluff-body flows, are limited to low-Reynolds number flows (about R < 5000); in order 
to faithfully reproduce the velocity gradient across a vanishingly thin shear layer, an extremely fine mesh 
must be employed, resulting in excessive computation time and exorbitant storage requirements. High 
Reynolds number flows, on the other hand, require methods such as the discrete vortex models (hereafter 
referred to as the DVM’s), which utilize a finite number of point vortices to represent the shear layers; 
appropriate modifications are usually made to the vortex cores to account for viscous effects and to 


alleviate many of the problems associated with vortex-to-vortex proximity. There is not one DVM—there 


is a DVM for every application, changes being made to suit the situation. DVM’s have been employed 


with reasonable results in many different flows: 


e Unidirectional flow past bluff bodies 


Flat plates at_a variety of angles of attack: Belotserkovski1 and Nisht [1973], Kuwahara 


[1973]. Sarpkaya [1975], Kiya and Aric [1977a, 1977b, 1980] 


Circular cylinders: Bellamy-Knights [1967], Gerrard [1967], Sarpkaya [1968], Davis 
[1969], Laird [1971], Chaplin [1973], Chorin [1973], Clements [1977], Kuwahara [1978], 
Sarpkaya and Shoaff [1979], Van der Vegt and Huijsmans [1984], Van der Vegt and de 
Boom [1985], Smith [1986], Tiemroth [1986a, 1986b], Smith and Stansby [1987, 1988], 


Van der Vegt [1988] 


Elliptical cylinders: Izumi et al [1982] 


Rectangular cylinders: Nagano et al [1981], 1982], Inamuro et al [1983, 1984], Sarpkaya and 


Ihrig [1986] 
Airfoils: Ham [1968], Katz [1981], Basuki and Graham [1987], and Shigemi [1987] 
Finned circular cylinders: Nielsen [1960], Telste and Lugt [1980] 


Non-circular Cylinder: Shoaff and Franks [1981] 


e Harmonic flow past bluff bodies 


Flat plates: Kudo [1979, 1981] 


Circular cylinders: Ward and Dalton [1969], Stansby [1977, 1979, 1981], Sawaragi and 
Nakamura [1979], Ikeda and Himeno [1981], Stansby and Dixon [1983], Ikeda [1984a, 


1984b], Mostafa [1987] 


e The DVM’s have been used in many other applications: 


e Flow across sand ripples: Longuet-Higgens [1981] 


e Simulation of a Savonius rotor: Ogawa [1984] 


e Cascade flow: Shirahata et al [1982] 


e Rotating cylinders (Magnus effect): Kimura and Tsutahara [1987] 
e Cambered plates: Mostafa [1987], Munz [1987], Sarpkaya et al [1987] 


The above list is far from complete and is presented only to give a sampling of the many 
applications of the DVM’s. For a more complete and critical analysis of the DVM and its many 
applications, see the excellent reviews by Sarpkaya [1989, 1994]. In the case of unidirectional flow, the 
vortices are convected away from the generating surface, so that the inability of the DVM’s to deal with 
both small and large structures in the wake has less and less influence on the body as time progresses; 1n 
fact, interference between the body and the vortices is confined mostly to the vortex formation region. 

The shed vortices in a harmonically oscillating ambient flow have, however, a dual effect. First, the 
boundary layer, pressure distribution, outer flow, and the generation and survival rate of new vorticity are 
signficantly affected by the returning vortices. Second, the returning vortices exhibit a strong influence on 
the motion of the primary separation points. As an example, the primary separation points on a circular 
cylinder undergo excursions of +3 in unidirectional flow (Sarpkaya and Shoaff [1979] ), whereas in 
harmonically oscillating flow, experiments (Grass and Kemp [1979] and Sarpkaya and Butterworth 
[1992] ) have shown that the mobile separation points can experience relatively large excursions (on the 
order of 120) in the course of a single cycle. These effects are further exacerbated by a host of additional 
items, which include, but are not limited to, vortex diffusion/decay and the fact that vorticity is, in reality, 
three-dimensional due to turbulent mixing, finite spanwise coherence, and finally, to the random nature of 


the vortices themselves. The net result is that, even for a given Keulegan-Carpenter number, there exist 


numerous flow modes and the eventual cycle-to-cycle variations (Sarpkaya and Wilson [1984] ). As noted 
by Sarpkaya [1985], “the stronger and better correlated the returning vortices, the sharper and more 
pronounced the changes are in pressure distribution on the body and in the integrated quantities such as 
the lift, drag, and inertia coefficient.” The above applications of the DVM to harmonic flow about bluff- 
bodies have been plagued by the requirement to incorporate gross simplifications and/or numerous 
disposable parameters, and all have met with significant difficulties. A universally applicable DVM for 
harmonic flow about bluff-bodies has yet to be devised. 

Applications of the finite element method for steady and oscillating flow past a circular cylinder 
have been presented by Moorty and Olson [1989], and for steady and oscillating flow past a circular 
cylinder by Pattani and Olson [1988]. In the former study, the streamlines exhibited considerable 
irregularity and/or discontinuity, and no comparisons to experimental results were made for model 
verification. In the latter investigation, good agreement was found with flow visualizations. Excellent 
success has been achieved in the simulation of harmonic flows about circular cylinders through the use of 
the finite difference scheme by Wang [1989] and Wang and Dalton [1991], albeit only for small Reynolds 
numbers (R < 3000). This finite difference scheme has subsequently been used to calculate non- 
impulsively started flow about a circular cylinder (Frederickson [1990] ) and for impulsive, non- 
impulsive, oscillatory, and oscillatory plus mean flows (see, e.g., Putzig [1991], Sarpkaya et al [1992] ); 
again, results were 1n reasonable agreement with experimental data, but were limited to relatively small 
Keulegan-Carpenter and Reynolds numbers. In general, the higher-order finite difference form of the 
Navier-Stokes equations is limited to small R and K due to numerical stability, computer storage and 
runtime considerations, and the general difficulty of dealing with turbulent flows. The Reynolds number 
is effectively reduced when tnuncation errors result in an artificial viscosity, the magnitude of which is 
unknown. 

A series of much more basic numerical simulations of vorticity approaching bluff bodies has been 


carried out; the genesis for the investigation of this problem has been myriad, and ranges from the 


interaction of turbulence with structures to the interaction of vortices with helicopter blades, submarine 
and missile control surfaces, and the like. Panaras [1987] investigated the effect of vortical structures as 
they passed successively closer to an airfoil, eventually impinging thereon and splitting: of specific 
interest in this study was the method of vortex representation (single point vortex, circular clusters of 
smaller vortices, or originally parallel sheets of vortices) and the effect of these various vortex 
configurations on the pressure field around the airfoil. This work was extended by Panaras [1990] to 
study the impingement and splitting of vortices on a corner and the resultant pressure distributions, as had 
been done initially by Conlisk and Rockwell [1981]. Since they were intended to provide insight into the 
overall impact of the vortices on the solid boundaries they were approaching, these potential flow models 
failed to incorporate the no-slip condition and hence the generation of new vorticity at the solid 
boundaries. Detailed pressure and force measurements resulting from vortex impingement on a corner 
were presented by Tang and Rockwell [1983] and Kaykayoglu and Rockwell [1985]; these experimental 
data revealed the existence and significance of secondary vorticity shed from the solid boundary. The 
importance of secondary vorticity has been reported by many investigators (Bergeson and Porter [1960], 
Stansby and Dixon [1982], Sarpkaya [1989] ); indeed, in many numerical analyses, the failure to properly 
introduce vorticity from the primary separation points and to incorporate the effects of secondary vorticity 
will most likely preclude faithful prediction of the forces on the body and replication of the flowfield 
kinematics. 

Based upon experience gained from a discrete vortex analysis of harmonic flow about a circular 
cylinder, the current work will continue with an analysis of the incorporation of viscous effects into the 
discrete vortex model as a result of the near passage or impingement of vortices on a bluff body. The 
insight gained from this detailed investigation will allow subsequent more realistic studies of harmonic 
flows about bluff bodies to be undertaken. In doing so, the ultimate purpose will be the understanding of 
separated, time-dependent turbulent flows. The question of whether the discrete vortex model represented 


a laminar or turbulent flow field will have to be addressed in light of more recent developments where the 


parcels of vorticity could be treated as deformable so as to satisfy the conditions of solenoidality, rather 


than merely representing laminar or pre-turbulent flows with non-deformable cores of vorticity. 
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Il. DISCRETE VORTEX MODELS APPLIED TO SINUSOIDALLY 
OSCILLATING FLOW 


A. INTRODUCTION 

Although DVM’s have been widely and successfully applied to separated bluff-body flows, there 
have been relatively few applications of DVM’s to the case of sinusoidally oscillating (hereafter referred to 
as “harmonic’”) flow. For a variety of reasons, the return of vorticity to the body makes analysis of this 
flow an order of magnitude more difficult than for the unidirectional case. 

After considering the basic elements which are common to all harmonic flow analyses, the 


previous investigations will be reviewed and compared with one another. 


B. FLOW KINEMATICS 


For a two-dimensional flow, the complex potential is given by 
w(z,t) =o +iy, (2.1) 
where 
Z=xtiy, (22) 
and where ~ and y are, respectively, the time-dependent velocity potential and the time-dependent stream 


function . The Cauchy-Riemann conditions dictate that the velocity components be given by 


Wome (2.3) 


and 


_ 99 _ oy (2.4) 
dy ox 


Taking the partial derivative of the complex potential with respect to z, one obtains 


lies ee (2.5) 
az 
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For the flow about a circular cylinder of radius c, a uniform, time-dependent flow 1s combined with a 
doublet (whose strength varies in time with the uniform flow) at the cylinder center (sec, e.g., Milne- 


Thomson [1968] ). This gives 


C 
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(2.6) 


where -U(t)z is the uniform flow, and -U(t)c’/z the doublet. Placing a vortex outside the cylinder 
requires, by virtue of Milne-Thomson’s [1968] circle theorem, the introduction of an image vortex of 
equal magnitude and of opposite sign inside the cylinder. For the generat case of a circular cylinder with 
N (exterior) real vortices, the complex function is obtained by combining the complex functions of all the 


singularities involved, so that 
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In this analysis, a positive vortex possesses counter-clockwise circulation; additionally, it is assumed that 


the vortex strengths may be functions of time. The circle theorem dictates that a real vortex at z = z,,_ has 


an image at z = Ge / Z and at z = 0. The central image, however, must be excluded because the vortex 


theorems (Sommerfeld [1950] ) require that vortices shed from the cylinder must leave a circulation 
opposite to their own on the cylinder. It is easy to see that the removal of this image vortex at the center 
of the cylinder will not change the Neumann boundary condition of zero normal velocity on the cylinder 


surface 


Se) = 0, (2.8) 
on r=c 


since the streamlines of a vortex are circles. It should be noted that at this point in the analysis no 
restrictions have been placed on the time-dependent velocity U(t), other than that it be uniform for any 


instant in time. 
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Combining Equations (2.5) and (2.7), the velocity at any point z 1s 
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This equation may also be used in calculating the convective velocity of a vortex at z= Z)y, provided that 











the singularity due to the vortex itself 1s avoided. 
Introducing the following change of variables, nondimensional equations may be formulated: 


utiv r= it 








Z ry * 
L = = ut+ilv = 
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(2.10) 
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Substituting Equations (2.10) into Equations (2.7) and (2.9), and setting U,, =1.0, c = 1.0, 


U = Up sinat, o = 2n/T, and eliminating the primes for ease of notation, one obtains 


w(z )=sino (2+ 1), EE rime: oy le ne] (2.11) 


and 


a 


(2.12) 
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where all velocity components, vortex strengths, and positions in the complex plane are normalized 
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variables, and the complex potential function is also normalized. The above dimensionless variables will 
be used throughout the remainder of this work unless otherwise noted. 
The last equation accounts for well over 90 per cent of the computation time in the numerical 


analysis, utilized primarily 1n the evaluation of vortex velocities during their convection, and also in the 
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evaluation of pressure on the cylinder surface. It 1s, therefore, prudent to maintain the number of vortices 


as small as possible, at the same tme utilizing a sufficiently small time step to faithfully replicate the 


flow. 


C. FORMULATION OF THE PRESSURE EQUATION 


For a time-dependent flow, the appropriate form of the Bernoulli equation is (see, e.g., Robertson 


[1965] ) 
p 1, © 
mare ae = C), 
at 13) 
where C(t) is an arbitrary function of time, and q is the magnitude of the velocity at the point in question. 


At any instant, C(t) has the same value at all points of the region, and not merely along a streamline. 


Ignoring the arbitrary constant, the pressure at any point on the cylinder is 
OG)! -.35 
p(9) =p—=- - — pq" (8), 
m 2 (2.14) 
where q : (8) is the square of the velocity on the cylinder surface (see Figure 2.1). In the evaluation of the 
first term on the right hand side of Equation (2.14), it 1s easier to consider it as consisting of three parts: 


1. Uniform Flow and Doublet Part 


For these two elements we have 
2 
Cc 
Wate = “Uo “S| (2.15) 


= Py cred ar ego 


so that 


® weg = ~2U(t)ccosO (2.16) 


and 


Figure 2.1 Complex coordinate system and cvlinder orientation. 





CO cU 
— = —2pc—cos® 
° at L. at (2.17) 
= —2pcoU,, cos@ coset. (2.18) 


Normalizing this quantity with 4p U- one obtains 


4m 
= Be ESO (219) 
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2. Real and Imaginary Vortices 
a. Real vortices 
As before, only the real part of the complex potential functions of the real vortices 1s 


required for the velocity potential: 


N 
a0) 10 O 
eee) OE pd —|T_ In(z—z | 2.20 
p | 2n » <1 nit o] = 
n=] r 
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Noting that 





Du tiv, (2.21) 


where u, and v, are, respectively, the x- and y-components of velocity at the vortex position, one obtains: 
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Again, normalizing with “2p U. , utilizing the nondimensional variables introduced in Equations (2.10), 


and dropping primes, one has 
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bh. Image vortices 
In an analogous fashion, the nondimensional pressure duc to the time rate of change of 


potential functions of the image vortices is 


(2.24) 


c. Total pressure due to vortices 
Combining the two preceding pressure components, one obtains the nondimensional 


pressure due to the vortices: 


Dice = lw Uae 
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3. Velocity-Squared Term 
On the cylinder surface, 


q ©) = Bea (2.26) 


so that, upon normalizing with “2p Be , one obtains 


p.: - = (2.27) 


Introducing the normalized cylinder surface velocity 


q(9) 
2) 
q (8) U_ (2.28) 
and dropping the prime for simplicity, one has 
py =-9°(0) (2.29) 
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4. Final Expression for Pressure 


Now, combining all of the pressure terms, the following expression for nondimensional 


pressure on the cylinder surface results: 


PO Pind + Pron PP, (2.30) 
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D. ALTERNATIVE METHODS OF EVALUATING THE RESISTANCE 


There are several methods to evaluate the forces acting on a stationary circular cylinder of unit 
length immersed in a time-dependent flow containing N vortices of strengths I. and locations z,. The 


various methods will be presented and contrasted. 


1. Generalized Blasius Theorem 


This method (see, e.g., Milne-Thomson [1968] ) actually begins with a pressure integration about 


the cylinder, and appears in its final form as 


‘| aw \ ea a 
Sls 5S ean wdz. (2,32) 


Sarpkaya [1963, 1981]a] has applied this method to the problem at hand, and has arrived at the following 
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results: 





and 
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n 
where p and q are, respectively, the x- and y-coordinates of a vortex, and the superscript refers to the 
image vortices. It should be noticed that, since the complex integration in Equation (2.32) is around the 
cylinder circumference, the singularities associated with the real vortices produced no residues. 


Accordingly, Equations (2.33) and (2.34) lack terms 


N 
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respectively. Additionally, Sarpkaya [1981la] has pointed out the unacceptability of having dI,/dt = 0 - 





and 


since, by referring to Equation (2.33), one may observe that this leads to C,, = 2 at all times, which is 
clearly a deviation from experimental results. Although there have not yet been any accurate 
measurements made concerning the rate of decay of shed vortices, the arguments presented by Sarpkaya 
would indicate that a DVM should incorporate some form of vortex strength dissipation or vorticity 


annihilation through the interaction of oppositely-signed vorticity. 


2. Time Rate of Change of Impulse of a Vortex Pair 


Considering every real vortex to form a pair with its own image (Milne-Thomson [1966] ), the 
impulse imparted by that pair to the cylinder is 


I, =ipI Az, 


= hx, ~ =| (2.37) 
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The total impulse acting on the cylinder is the sum of the effect of all of the vortex pairs 


[= p> Tye, _ =| (2.38) 


n=) 
and the force per unit length acting on the cylinder is the time rate of change of the impulse, plus the 
appropriate inertial force: 


D+iL= ne a 
dt ot 
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Contrasting this result with that obtained via the generalized Blasius equation, it is seen that Equation 


(2.39) includes the terms (Equations (2.35) and (2.36)) which were not present in Equations (2.33) and 
(2.34), respectively. 

3. Direct Integration of Pressure Around the Cylinder 

Both of the preceding methods incorporate differential quantities, and, as such, are extremely 
sensitive to any vortex strength dissipation, annihilation at the boundary, or amalgamation scheme (these 
will be discussed in detail in the next chapter). Integration of the pressure around the cylinder (see Figure 
2.2), however, gives results which are not only close to either of the above methods, but which are also 
significantly smoother and more well-behaved. This is true, in general, when comparing numerical 
integration methods to numerical differentiation (see, e.g., Gerald [1978] ). Accordingly, the following 


equation was utilized in the current analysis to evaluate the in-line force on the cylinder: 


2m 
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Figure 2.2 Pressure integration. 
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The prime denoting normalized pressure is dropped for simplicity, and noting that D=2c, one 


obtains 
27 
C.. = -5 foe cosOdg. (2.42) 
0 
Similarly, to obtain the lift force, 
on 
[ee sin@d0 
c=-2 , (2.43) 
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2h 


=—— [p(@)sin@d0. (2.44) 


FE. PREVIOUS INVESTIGATIONS 


Although some of the DVM’s proposed to simulate harmonic flow about cylinders have many 
realistic features, there are still a whole host of problems which remain to be overcome, each of which is, 
in itself, a fundamental research problem. These include separation point prediction, creation and 
destruction of vorticity, asymmetry initiation, the existence of secondary vorticity and its point of 
introduction, wall-vortex and vortex-vortex interactions, mixing of oppositely-signed vorticity, and the 
need, in many instances, to know in advance (via flow visualization experiments) the physics of the flow. 
Moreover, in all of these DVM’s it 1s difficult to specify a particular Reynolds number which describes 
the flow—instead, only a particular flow regime may normally be specified, depending on the criterion 
utilized to predict separation. After reviewing various approaches to solving the case of harmonic flow, 


the next chapter will consider many of the elements of the DVM in more detail. 


I. Ward and Dalton [1969] 


This investigation considered only the case of symmetric vortex shedding over the range 
2.5 < K < 30, even though most of this range is characterized by asymmetric vortex shedding. The reason 
for maintaining symmetry was a series of limited flow visualization experiments, wherein it was noted 
“that, for certain amplitudes and frequencies of motion, the symmetry of the vortex pairs is retained for 
several oscillations, even through the shedding process.” This experimental observation 1s correct, but 
what is most important is the quasi-steady flow which follows the transient state. Attempting to base any 
conclusions on only one cycle of symmetrical, transient flow 1s inappropriate. More will be said about this 
later. Additionally, Ward and Dalton employed constant, average locations for the separation points 


which were based on experimental data. Although it is stated that the numerical experiments were 
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conducted over a wide range of Keulegan-Carpenter numbers, results are shown only for K = 47, and are 


not in agreement with the data of Sarpkaya [1976]. 


2. Sarpkaya [1976] 


A time-sequence of discrete vortex flow about a circular cylinder for K = 9.2 was included as an 


appendix to the report, although no details of the analysis were given. 


3. Stansby [1977, 1979, 1981], Stansby and Dixon [1982, 1983] 


Utilizing separation points fixed at +90° on the cylinder, Stansby [1977] sidestepped the issue of 
separation point prediction. In his next paper [1979], he cited the limited flow visualization of Grass and 
Kemp [1979] as justification for fixing the separation points at +90°; Grass and Kemp presented data for 
only K = 38, from which it is possible to ascertain a general idea of where the separation zone is located. 
In fact, the only place where separation “points” exists, per se, is in numerical analyses. The data of 
Grass and Kemp (Figure 2.3) show separation occurring around the top and bottom of the cylinder for 
times when the ambient flow is close to its maximum value; one of the essential ingredients of an accurate 
DVM of harmonic flow, however, 1s the ability of the returning wake to freely interact with the boundary 
layer in the creation of new vorticity. By arbitrarily positioning the separation points, the resulting flow 
pattern is being biased. 

When calculating nascent vortex strengths, Stansby utilized not the velocity at the separation 
point, but rather the velocity of the nascent vortex itself. The result is significantly less vorticity input; 
compared with most other DVM’s, this model would appear to dissipate a significant portion (on the order 
of 40 per cent) of the nascent vortex strength at the instant of the nascent vortex shedding. 

Also noteworthy is that, in his two later papers, Stansby [1979, 1981] has employed a cloud-in- 
cell technique to calculate the velocities (see, e.g., Baker [1979] and Stansby and Dixon [1982, 1983} ),; 
this is done in lieu of a straightforward induced velocity summation to save computer execution time. 


Stansby and Dixon [1983] later employed a Lagrangian scheme, and utilized a series of polygonal line 
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Figure 2.3 Variation of the separation angle over a half cycle (from Sarpkaya and 
Isaacson [1981] ). 





segments to represent the body. Vortex sheet segment strengths were calculated at each ume step to 
sausfy the Rorsli condition on the body surface; these were derived from the inversion of an influence 
matnx which, in turn, utilized tangential velocities calculated immediately inside the body surface. The 
line segments were then replaced by a series of point vortices. The calculations for K = 10 failed to 
produce the experimentally-observed transverse vortex street. 

4. Sawaragi and Nakamura [1979] 

Although this work was the first in which a dedicated series of flow visualization experiments 
was conducted in support of numerical work in harmonic flow, only sketches of the various flow patterns 
were presented. Based on their flow visualization results, the authors did not introduce any artificial 
asymmetry for K < 8; Sarpkaya [1981a] notes, however, that asymmetries in the flow develop in the 


4<K<5 regime. For K > 8, Sawaragi and Nakamura halved the strength of the nascent vortices on one 
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side of the cylinder for an arbitrary length of time following the onset of separation, thereby triggering 
asymmetry. 

The locations of the separation points were calculated using Schlichting’s [1932] periodic 
boundary layer theory; more will be said in the next chapter concerning the propriety of this separation 
point prediction scheme. Nascent vortices were placed in the flow at the edge of the boundary layer and 
midway between the current and previous angular location of the separation point; thus, a Kutta condition, 
as is normally employed in the literature, was not utilized. The image vortices which were not included in 
Equation (2.7) above, were retained by Sawaragi and Nakamura; therefore, although the zero normal 
velocity criterion is satisfied on the cylinder, the tangential velocity on the cylinder is incorrect since the 
Helmholtz circulation conservation theorem has been violated. Finally, calculations are performed for 
only three-quarters of a cycle, hardly enough time for the transient flow to develop into a quasi-steady 


State. 


5S. Kudo [1979, 1981] 


This study was the first numerical application of harmonic flow to a flat plate oriented normal to 
the flow. Although the analysis considered flows in the range 2/2 < K < 5x and for times as high as 
almost five complete cycles, the flow was treated as symmetric. Kudo’s model also incorporated a Kutta 
condition combined with a very complicated force- and moment-free nascent vortex placement scheme. 

In the interest of saving computer time, vortices were removed from the flow fields when they traveled a 
certain distance from the plate; this distance was based on the distance traveled by the vortices shed in the 


first half cycle. 


6. Ikeda and Himeno {1981] 


In addition to harmonic flow about circular cylinders, this study also included flow about Lewis 
form cylinders by using a mapping function; Lewis form cylinders find application in the flow about 
transverse sections of ships floating in a horizontally oscillating fluid medium. Separation was 


ascertained with Schlichting’s [1932] method, as in Sawaragi and Nakamura [1979] above; an attempt 
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was made to incorporate an arbitrary phase shift in the separation point scheme to bring the results into 
closer agreement with experimental observations. Vortices were placed at a distance midway between the 
cylinder and outer edge of the boundary layer. Calculations continued for as long as 2' cvcles, and were 
performed for the range 2 < K < 10.5. As with Sawaragi and Nakamura, the vortex images were retained 
at the center of the cylinder in Equation (2.7). 

7. Ikeda [1984a, 1984b] 

The model used here is essentially the same employed by Ikeda and Himeno [1981], except that 
asymmetry was triggered during the first twentieth of a cycle beyond the inception of separation; during 
this time, nascent vortex strengths were halved on one side of the cylinder. Calculations continued for as 


long as 2% cycles, and were performed for a wide range of Keulegan-Carpenter numbers. 


8. Mostafa [1987] 


Working with Sarpkaya, Mostafa [1987] was able to accurately simulate the transverse vortex 
street characteristic of the range 10 < K < 20. Results were presented only for K = 12, and the calculated 
forces were somewhat larger than those obtained experimentally. It is to be noted that no circulation 


reduction scheme was employed, nor were any verification runs presented for the limits K—> o or K << 1. 


F. SYNOPSIS OF THE PREVIOUS INVESTIGATIONS 


Each of the above DVM’s of harmonic flow suffers from several major arbitrary assumptions, but 
perhaps the most critical of these concerns the positioning of the nascent vortices. In most of the models 
the wake is not permitted to interact with the boundary layer and thus affect the angular location of the 
next nascent vortex. Perhaps the second most significant assumption 1n some of the above models is that 
of symmetric flow. In reality, most Keulegan-Carpenter number flows do not develop asymmetries until 
the flow has executed many cycles; the constraints of most computer systems (execution times and storage 
limitations) dictate that some artificial method of asymmetry introduction be utilized to shorten the 


amount of time spent in the transient flow state. 


Several of the models were run for less than one cycle. Even if an asymmetry mechanism could 
be developed to accelerate the transition to the quasi-steady state, most models would require at least 2% 
to 3 complete cycles for meaningful results. 

Finally, none of the models incorporated any type of dissipation scheme, although Ikeda [1984] 
did acknowledge the need for one. Several of the applications utilized Lamb vortex velocity models which 
diffuse with time; note, though, that the strength of a viscous vortex does not change with time. It is felt, 
however, that the effect of dissipation on flow kinematics is minimal; it will, rather, be of use in bringing 
the gross aspects of the flow into agreement with experimental results once the kinematics are correct. 
These and many other elements of the DVM’s will be analyzed in an attempt to determine the most 
phenomenologically correct combination of assumptions to obtain the kinematics of harmonic flow about 


circular cylinders. 
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Il. ELEMENTS OF THE DISCRETE VORTEX MODEL 
A. INTRODUCTION 

The simulation of harmonic flow about bluff bodies challenges all elements of the DVM. For 
unidirectional separated flows, the wake remains on the downstream side of the body; although the 
attached and shed vortices play a role in the separation process, their influence is felt primarily on the 
base of the body. This influence diminishes rapidly as the vortices continue to move downstream, so that 
the representation of vortex sheets by an array of discrete vortices is a reasonable approximation. For 
reversing flows, however, the interaction between the vortices and the generating surface (and among the 
vortices themselves) is an order of magnitude more complex than in unidirectional flows. As a brief 
review of the previous investigations has shown, many ad hoc assumptions have been required to 
overcome these difficulties; the propriety of these assumptions will now be examined in detail, and the 


most promising solutions will be identified. 


B. SEPARATION POINT PREDICTION 


It is possible to accurately predict separation only for bodies with sharp edges. For the relatively 
simple case of steady, unidirectional ambient flow past bluff bodies without sharp edges, separation points 
can only be predicted approximately for laminar flows; the situation becomes almost intractable for 
turbulent flows. Experiments (see, e.g., Sarpkaya and Butterworth [1992] ) have shown that for unsteady 
flows, mobile separation points may experience large excursions, thereby making the numerical 
simulation of these flows extremely difficult. Indeed, it has been pointed out by Sarpkaya [1989] that a 
universally applicable definition of separation for all classes of unsteady flows has yet to be defined. A 
more extensive discussion on this issue is given by Sarpkaya [1989]. 

Although flow visualization experiments have verified that several separation points may exist at 
any instant on a body in harmonic flow, the two most prominent (“primary”) vortices are normally shed 


from shear layers which originate on the forebody, and separate when unable to sustain an adverse 


a 


pressure gradient. Numerical techniques can be used for predicting the approximate positions of the 
separation points, although an arbitrary decision must be made whether to use a laminar (Pohihausen 
[1921], Loitsianski [1941], Thwaites [1949], Stratford [1954], etc.) or a turbulent (Stratford [1959], 
Takada [1975] ) scheme. These methods allow mobile separation points (see, e.g., Sarpkaya and Shoaff 
[1979], Deffenbaugh and Marshall [1976], or Mostafa [1987] ) and give results superior to those obtained 
with fixed separation points (Davis [1969], Stansby [1977] ). As the primary vortices grow, the velocities 
they induce on the base of the body produce additional boundary layers and secondary separation points. 
The resulting secondary vortices eventually mix with the primary vortices, and are an important aspect of 
the flow since they reduce the magnitude of the primary vortices. More will be said about countervortices 
later. 

In reversing flows, however, primary and secondary vortices are convected back across the body; 
this poses significant difficulties in the prediction of separation from bodies which lack sharp edges. If it 
is assumed that the flow is quasi-steady from one time step to the next, then one of the above-mentioned 
separation prediction methods for steady ambient flow may be used; each of these methods, however, 
requires a smooth velocity or pressure distribution for meaningful results, and this proves to be a 
significant source of difficulty. Consequently, most investigators who have used the DVM for the analysis 
of the harmonic flow problem have employed either fixed separation points or have predicted separation 
based on Schlichting’s [1932] solution. Ward and Dalton’s [1969] use of fixed separation points was 
based solely on average values determined from flow visualization experiments; during the first half-cycle, 
separation was assumed to occur at +60° from the rear stagnation point, and during the second half-cycle, 
at 40° from the rear stagnation point. Stansby [1977, 1979, 1981] chose to fix separation at +90°, 
arguing that this was close to the separation regions observed by Grass and Kemp [1979]. The use of 
separation points based on Schlichting’s [1932] analysis (Ikeda and Himeno [1981], Ikeda [1984], and 
Sawaragi and Nakamura [1979] ) is also very arbitrary, Schlichting [1979] has noted that his method is 


acceptable only if 
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T 
a ee l, (3.1) 


so that it is not a valid method 1n predicting separation for the higher Keulegan-Carpenter numbers 
considered in this study. In either case, the wake is not allowed to interact with the boundary lavers and 
to freely influence the location of the separation points. Although the returning vortices affect the 
magnitude of the shed vorticity, the separation points are slaved to either a fixed location or to a 
predetermined route with respect to time. 

The experimental results of Grass and Kemp [1979] (for K = 38) and Sarpkaya and Butterworth 
[1992] have shown that the separation points on a circular cylinder may experience excursions of 120° 
during a single half-cycle. The returning wake very strongly affects the positions of the separation points; 
any DVM of harmonic flow must also have a means whereby the nascent vortices are allowed to vary in 
both magnitude and location in response to the surrounding flow. No satisfactory unsteady separation 
point prediction technique currently exists for circular cylinders in harmonic flow; even for the case of 
unidirectional steady flow about circular cylinders, all of the aforementioned methods provide only 
approximate locations for the separation points. 

Mostafa [1987] calculated primary shear layer separation points using the Pohlhausen method 
(see Sarpkaya and Shoaff [1979] ). When the forebody velocity profile became distorted by returning 
vortices, separation was said to occur at a point slightly downstream of the maximum velocity or absolute 
maximum pressure; should the separation angle jump more than 8° from one timestep to the next, the 
local velocity maximum closest to the maximum absolute pressure was used to determine the separation 
point. Even with this somewhat time consuming calculation, the plot of stagnation point versus time was 
very jagged and sporadic, and showed movement of the primary separation point on the order of 120°. 

To ascertain the nature of some of the problems associated with the use of a boundary layer 
method in harmonic flow, the same Pohlhausen technique employed by Sarpkaya and Shoaff [1979] and 


Mostafa [1987] was utilized in connection with harmonic flow about a circular cylinder. As anticipated. 


Zo 


retumming vorticity resulted in forebody velocity distnbutions with which the Pohlhausen technique could 
not realistically cope. This occurred in two different ways. 

1. Discrete Vortex Returning to Forebody 

Due to the singular nature of the velocity induced by a point vortex, velocity distributions may be 
far from smooth. Figure 3.1 shows a cylinder velocity distribution which has been perturbed by two 
returning discrete vortices, A and B. The solid line in the plot of velocity depicts what the cylinder 
velocity distribution would have been without the influence of the two point vortices. When entire clusters 
were “crushed” against the cylinder, the velocity distributions were significantly more irregular. Since the 


Pohlhausen calculation must proceed from the forward stagnation point, C, downstream, several 


consequences are possible: 
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Figure 3.1 Cylinder velocity distribution perturbed by individual discrete vortices. 
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e The upper separation point could move to the vicinity of point A 
e Calculation could fail between points B and C. 


Similar problems were reported by Shoaff and Franks [1981] in applying the Pohlhausen method to 
predict separation on bodies which required numerical transformation, and by Mostafa [1987]. DVM’s 
usually provide for the annihilation of discrete vortices when they approach to within a small distance of a 
flow boundary; the phenomenological basis for this mechanism Is that the core of a real vortex “touches” 
the core of its image, so that the two cancel each other. Even with this annihilation region extending into 
the flow for ten per cent of a cylinder radius, problems are still encountered in the velocity distribution on 
the cylinder. Most of these problems can be alleviated by utilizing a viscous (sometimes referred to as a 
“finite”) vortex velocity calculation, so that the infinite velocity at the vortex center is reduced to zero. 


The distribution of vorticity is 





wr, t) = yr em, (3.2) 
TV 
which results in a velocity distribution of 
Tr ae 
v(r,t)=>—|1-e™ |, (3.3) 
r 


where r is the radial distance from the vortex center, t is the vortex age, and v is a suitably chosen value 


for viscosity. The core radius may be obtained from Ov / or = 0 (see, e.g., Lamb [1932] ): 


r=224/vt. (3.4) 
There are still, however, occasional instances when use of a finite vortex will be unable to overcome this 


problem. 
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2. Vortex Cluster Within Approximately One Cylinder Diameter 


This is a more realistic effect than is the close approach of a few discrete vortices to the cylinder, 
since the close passage of a cluster induces a velocity field not significantly different from that produced 
bv a real vortex. A typical velocity distribution is shown in Figure 3.2, where point A denotes the position 
at which the Pohlhausen technique fails in its march from the forward stagnation point. and the cluster of 
vortices producing this failure is circled. 

In order to overcome the difficulties associated with either the close approach of a few discrete 
vortices or the relatively distant passage of a vortex cluster, several methods were attempted. Firstly, the 
Pohihausen technique utilized bv Sarpkaya and Shoaff [1979] for unidirectional flow was analvzed, and it 
was ascertained that separation occurred when the velocity had dropped to 97 per cent of the maximum 


velocity on the forebody velocity distribution: this was then employed as a criterion for separation, as had 
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Figure 3.2 Cylinder velocity distribution perturbed by a returning vortex cluster. 
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been done by Shoaff and Franks [1981], Franks {1983], Stansby and Dixon [1982], and Mostafa [1987]. 
This achieved only limited success in the case of velocity distributions of the type depicted in Figure 3.5, 
since large jumps in the separation point were possible whenever the positon of maximum Velocity 
changed (see, for example, point A). The kinematics were sull significantly different from those observed 
experimentally, as will be seen in the next chapter. 

The use of a laminar boundary layer technique may, in itself. be inappropriate because the 
boundary layers are turbulent. A series of flow visualization experiments and force measurements on 
smooth and rough cylinders at very low Keulegan-Carpenter numbers (0.5 < K < 10) have shown (Yuen 
[1985] ) that only for extremely low values of K do the in-line forces agree with the laminar theory of 
Schlichting {1932]; the flow on the cylinder is turbulent for all other Keulegan-Carpenter numbers, even 


though the Reynolds number may be small enough to be considered laminar by conventional standards. 
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Figure 3.3 Illustration of how rapidly the position of maximum velocity may change due to the close 
approach of a discrete vortex. 
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For flows of significance in most ocean engineering applications (i.e., K > 4), a turbulent boundary layer 
analysis is appropriate. In steady turbulent flows, the boundary layer is capable of withstanding an 
adverse pressure gradient longer, so that separation occurs on the order of 30° further downstream from 
the pressure minimum than in a laminar flow. There are several turbulent boundary layer separation 
techniques available for steady flow (see, e.g., Stratford [1959] or Takada [1975] ); even if it were 
assumed that a harmonic flow were sufficiently quasi steady for these methods to be applied for the 
prediction of separation, they would still be susceptible to the same difficulties encountered with the 
Pohlhausen technique. The change of pressure coefficient along the cylinder surface was utilized as a 
criterion to predict separation by both Stratford [1959] and Takada [1975]; just as the velocity distnibution 
is perturbed by returning vorticity, so too is the pressure distribution. 

In validating his technique for turbulent flow separation prediction, Takada [1975] applied it to 
Several experimental pressure distributions, most of which showed that experimentally determined 
Separation points occur roughly 30° downstream of the pressure minimum. Since the pressure minimum 
normally occurs very near the velocity maximum, several runs were made in the current research where 
the nascent vortex was placed at a position 30° downstream of the velocity maximum. Limited success 
was achieved with this method since the separation point could change radically as the velocity maximum 
changed during the convection of a cluster back across the cylinder. 

Although other procedures were implemented in an attempt to simulate separation from a 
turbulent boundary layer, no satisfactory method was found. It is still felt that a turbulent boundary layer 
technique will be the most appropriate separation prediction method for harmonic flow about circular 


cylinders. 


C. INTRODUCTION OF VORTICITY 


In many DVM’s, the time rate of introduction of vorticity from the boundary layer per unit length 


along the cylinder is calculated as 
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) 
a = [ov (3.5) 
dt 

0 


where 6 is the boundary layer thickness, o is the vorticity 


(=== (3.6) 


x and y are the coordinates parallel to and orthogonal to the surface, respectively; u and v are the velocity 
components parallel to and orthogonal to the surface, respectively. Invoking the normal boundary layer 


assumptions, one obtains the following for the magnitude of the generation rate of vorticity: 


) 
a Can (3.7) 
dt dy 
0 
re: 8 
rae =U;). (3.8) 


where U, is the tangential velocity at the outer edge of the shear layer at the predicted separation point 
and U, is the velocity on the inner side of the shear layer. Fage and Johansen’s [1928] extensive 
experiments have shown that one may write 


dT ly 3.9) 


dt 220 @ 
In numenical calculations, dI/dt is replaced by AI/At so that the strength of a nascent vortex may be 


calculated by 





2 
rT = U;At (3.10) 
nv 2 s 


In the most general case, though, the nascent vortex must be assumed to be a function not only of position, 
but also of time (see, e.g., Ikeda and Himeno [1981] ), so that 


r=T(s,t), (3.11) 


where s 1s arc length along the cylinder surface, s=c@. A differential change in I is then calculated as 
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dl’ = — dt + —ds. (3.12) 
Os 


But 
oO _ ds=cd0 (3.13) 
and dI/dt may be obtained from Equation (3.9) above. Equation (3.12) then simplifies to 
] 
dr = — U2dt +U,cd® (3.14) 
or, for numerical calculations, 
la 3.15 
Ty = 5 Uz Att U,cA 8 (3.15) 


Note that for the case of steady, unidirectional flow, A® is approximately equal to zero, and Equation 
(3.10) results. 
The same result may be obtained (Sarpkaya [1985] ) by replacing u in Equation (3.7) by the 


relative velocity at the separation point: 


5 
dr jadu 
a | Ol eke (3.16) 
at ex ,)dy 

0 


Although it is not yet possible to account for all of the unsteady aspects of the harmonic flow problem, 


Equation (3.15) does bring some of the unsteady effects into play. 


D. ASYMMETRY INITIATION 


Without any form of artificial asymmetry, the numerical simulation would produce a flow pattern 
which retains perfect symmetry about the x-axis, at least until round-off error or some form of numerical 
instability occurs. In nature, even for the case of unidirectional flow about circular cylinders, the 
symmetric ambient flow results in the non-symmetric effect of alternate vortex shedding. 

It is an experimentally established fact that a sinusoidally oscillating flow will normally require 


many cylces to establish its quasi-steady state. In the numerical simulation of these flows, execution time 
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and storage requirements of current computer systems dictate that some form of asymmetry introduction 
be employed to trigger an otherwise symmetric flow into its quasi-steady state before too many cycles have 
elapsed. This must be accomplished, however, without shocking the flow; the minimum asymmetry 
possible should be utilized. For the unidirectional flow past normal flat plates, there may be a very small 
angle of attack assigned to the flow to trigger the alternate vortex shedding (see, e.g., Kuwahara [1973] ). 
For flow past flat plates oriented perfectly normal to the flow direction or for flow past bluff bodies 
without well-defined separation points, asymmetry may be triggered in any number of ways: changing the 
strength of the nascent vortices on one vortex sheet, giving the vortices in one sheet a small downstream 
displacement, removing or adding a vortex, etc. These triggering methods are normally accomplished 
over some finite time period relatively early in the flow’s development; in many instances, there may be 
an optimum time when the flow 1s most susceptible to any asymmetry. If asymmetry 1s initiated during 
this time of maximum sensitivity, the duration and intensity of its application may be minimized. 

Several different forms of asymmetry were attempted in the current work. One method reduced 
the strength of each vortex in one sheet by approximately ten per cent as it passed a certain x-coordinate; 
this was in effect only during the very early part of the first half-cycle. A second method placed the 
nascent vortices in one sheet at approximately 90 per cent of the distance from the cylinder calculated 
with the Kutta condition. Both of these forms of asymmetry introduction resulted in a relatively sluggish 
asymmetrical growth of the vortex pattern. 

For impulsive flow about a circular cylinder, Sarpkaya and Shoaff [1979] utilized an asymmetry 
which added a downstream displacement to the vortices of one sheet; this displacement varied as a 
function of nondimensional time (Ut/c) as shown in Figure 3.4, and resulted in a total displacement of 
approximately one third of a cylinder radius. This form of asymmetry, applied during approximately the 
first quarter-cycle of harmonic flow (i.e., while the ambient flow was accelerating) resulted in the relative 
vortex positions at the end of the first half-cycle most closely approximating those observed 


experimentally at much larger times. The functional form employed was: 
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B t-—T] 
Ax = —] 1-—cos} ————7 ||. 
| Fees | i 


Ax is the x-displacement applied to all vortices in one sheet at ume t, where T1 is the time of iniuation of 
the asymmetry, T2 is the ume of termination, and B is the maximum value for the displacement. For 


impulsive flow, Sarpkaya and Shoaff [1979] used B = 0.04, Tl = 5.0, and T2 = 9.0. 


rE. CONVECTION SCHEME 


When convecting the discrete vortices at each ume step, a first-order (Eulerian) scheme 
zZ(t+Ah=2(t)+q(t)At (3.18) 
or higher order schemes, such as the following second order methods, may be utlized (see, e.g., 
Sokol nikoff and Redheffer [1958] ): 
z(t+ At) =z(t—At)+2q(t)At (Sag) 


] (3.20) 
z(t + At) = z(t) +5 [3a(t) —q(t—AdlAt, 


where q and z are the complex vortex velocity and position, respectively. 
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Figure 3.4 Variation of the asymmetry perturbation with time (from Sarpkaya and 
Shoaff [1979] ). 
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F. CIRCULATION REDUCTION 


There are three ways in which the circulation of a vortex may be reduced. Although each 
of these circulation reduction mechanisms is easily implemented in a numerical code, the difficulty 
lies in the relative and absolute degrees to which each affects the strengths of the vortices in the 


flow. 


1. Wall Annihilation 


As mentioned previously, the close approach of a vortex to the cylinder can induce very 
high velocities, with unrealistic effects on the in-line and lift forces, velocity and pressure 
distributions, etc. In reality, the vortices are not ideal point vortices. As a real vortex approaches a 
solid boundary, it “sees” its image and, in effect, “rubs” on it; as a consequence, both the real and 
image vortices are reduced in strength. This physical process may be carried over into the 
numerical model by specifying an arbitrary annihilation region around the cylinder; should a 
discrete vortex (i.e., a component of a larger cluster) be convected within this region, it will be 
assumed to have combined with its image vortex of equal magnitude, but of opposite sign. 

The width of this region may be assigned in a variety of ways. If the individual discrete 
vortices are assumed to have Lamb vortex velocity distributions as in Equation (3.3), real-image 
combinations may be assumed to occur when their cores touch. Unless unrealistically low 
Reynolds numbers (i.e., very high numerical viscosity) are assumed, however, the vortices will still 
be able to approach very close to the cylinder before this annihilation criterion is met, with 
significant, although not infinite induced velocities. Although this criterion may be viewed as 
being less arbitrary than others, it is more prudent to assign an arbitrary region surrounding the 
body, within which vortices are annihilated. 

Using such a buffer region of thickness Ar = 0.04, Sarpkaya and Shoaff [1979] found, just 


as had previous investigators (Clements [1977], Sarpkaya [1975] ). that this mechanism, 
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coupled with the combination of oppositely-signed vorticity, resulted in only a 10 to 15 per cent 
reduction in the strength of a cluster. 

When buffer regions of a similar size were utilized in a harmonic flow application, it was 
found that, even for viscous core vortices, irregular boundary layer velocity distributions resulted 
on the cylinder; these made boundary layer calculations impossible (see Figure 3.1). As mentioned 
previously in conjunction with the discussion on separation points, Shoaff and Franks [1981] 
encountered similar difficulties after performing a mapping, and circumvented the difficulty by 
smoothing the velocity profile prior to performing a boundary layer analysis. In the present work, 
this smoothing was not attempted since it could arbitrarily affect the separation point location. 
Instead, the buffer region was increased to approximately Ar = 0.18 on the forebody (to allow 
proper functioning of the boundary layer calculations) and to approximately Ar = 0.10 on the base 
of the cylinder; upon flow reversal, these two values were switched. A smaller value for Ar on the 
base of the cylinder was found to “shock” the system upon flow reversal; many vortices close to the 
cylinder would have been subjected to annihilation immediately upon reversal of the flow. These 
enlarged buffer regions quite naturally resulted in an increased percentage dissipation for vortex 


clusters. 


2. Vortex-to- Vortex Proximity 


As two discrete point vortices approach one another, larger and larger convection 
velocities result until one or both experience(s) an extremely large displacement; orbiting may also 
result. These motions result from the discrete nature of the individual vortices, and should be 
avoided. Consequently, when the distance between any two vortices falls below some value, they 
are combined and the resultant vortex of strength 
Ye =I, +I, (3.21) 


is placed at the “center of vorticity,” calculated as 
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Sa ae ane o ; (3.22) 


Had I.o, been very small, and had it been utilized tn lieu of the denominator of the last equation, then 
the center of vorticity would have been at a physically unrealistic position relative to either of the onginal 
vortices. Equation (3.22) places the resultant vortex on a line joining the original vortices. 
To determine the distance criterion for combination, several methods may be employed. The first 
specifies that, if the distance between two vortices 
= \Az| = lz, - aa (3.23) 
is less than the sum of their core radii (see Equation (3.4)), 


& * * 
Ar =r, +1, 


=2.24|,/vt, +/vt, | (3.24) 


then the vortices should be combined. In general, however, the value of viscosity which must be utilized 
in the simulation of a high Reynolds number flow (a basic premise of the DVM’s) is extremely small. 
Consequently, long before they approach closer than a distance Ar too many vortices may still induce 
very large velocities on each other. It seems more prudent, therefore, to specify that two vortices will be 
combined whenever their separation is less than an arbitrary value; in the present work, the criterion 
employed is one-tenth of a cylinder radius. 

In the current work, this combination is performed only between vortices of opposite sign. Were 
it allowed to combine discrete vortices of like sign, it would be possible for discrete vortices to grow in 
magnitude, with consequent unrealistic effects. These include vortex pairing, loss of the general shape of 
a cluster, and drastic effects on the boundary layer calculations when these large discrete vortices returned 


to the forebody. 
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Bloor and Gerrard 
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Figure 3.5 Vortex strength versus distance in unidirectional flow (from Sarpkaya and 
Shoaff [1979] ). 





3. Artificial Dissipation 

Numerical analyses of unidirectional flow (see, e.g., Sarpkaya and Shoaff [1979] ) have shown 
that the two preceding methods of circulation reduction account for approximately one-fourth to one-third 
of the total reduction in circulation experienced by a vortex. Expenments by von Schmidt and Tilmann 
[1972] and by Bloor and Gerrard [1966] (see Figures 3.5 and 3.6) show that while still attached to the 
cylinder by a feeding shear layer, vortices grow rapidly; simultaneously, however, they lose some of their 
strength via various circulation reduction mechanisms. The plots of Figures 3.5 and 3.6 should be 
regarded more as qualitative in nature than quantitative due to Reynolds number and three-dimensional 
effects and to the methods of evaluation of the values plotted. Sarpkaya [1989] points out that 

In an inviscid incompressible fluid of uniform density, subjected to irrotational body 

forces, the circulation around any closed material curve is invariant (Kelvin’s circulation 

theorem). This is a consequence of the fact that there is no diffusion and vorticity is 

transported solely by the convection of the fluid. In a viscous fluid, however, the 

circulation about a closed contour moving with the fluid depends on the contour of 


integration. The rate of change of vorticity in a material volume is due solely to 
diffusion across the boundary of the volume. 


The first two circulation reduction mechanisms mentioned above result from the combination of 
oppositely-signed vorticity--reduction from these numerical mechanisms, however, does not bring 


circulation down to levels commensurate with those observed expenmentally. The additional reduction 
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mechanisms may be due to the entrainment of fresh fluid into the shear layers, instabilities in the spiraling 
vortex sheets, slow viscous reduction, or to some other phenomena. Consequently, any DVM will be 
unable to faithfully duplicate even the most general features of a real flow (forces, circulation distnbution, 
etc.) unless some additional circulation reduction mechanism is implemented. Sarpkava and Shoaff 
[1979] were the first of a relatively few researchers to incorporate a dissipation mechanism in their DVM; 


they applied a dissipation function which reduced the strength of all vortices (except the nascent vortuces) 


according to 


p 
r =|1-——IP, (old (3.25) 
, (new) 2 , (old), 


where p was a function of the x-component of vortex location as shown in Figure 3.7. 


Kiya and Arie [1980] and Kiva et al. [1982] reduced the strengths of the discrete vortices 


according to 
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Figure 3.6 Percent of circulation reduction versus distance in unidirectional flow (from 
Sarpkaya and Shoaff [1979] ). 
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where I. is the initial vortex strength, I(t) is the strength at time t (the age of the vortex), a isa 
constant, and R is the Reynolds number; this scheme incorporates only a temporal dependence without 
regard to spatial location. 

Nagano et al [1981, 1982] applied an experimentally-based dissipation mechanism to the case of 
unidirectional flow past rectangular prisms. After performing a vortex strength measurement similar to 
that used by Fage and Johansen [1928] (Figure 3.8), they claimed that their dissipation mechanism would 
work in nearly the same fashion as that utilized by Sarpkaya and Shoaff [1979]. 

In the case of harmonic flow, the three circulation reduction mechanisms mentioned above are all 
present. Flow visualization experiments have shown that vortices which are convected back across the 
cylinder can experience significant deformations and consequent reductions in circulation as they are 
crushed against the cylinder. Quite obviously, there is an additional mechanism, strongly dependent on 
distance from the cylinder, which exists in addition to all of the reduction mechanisms which exist for 
unidirectional flow. 

Another situation wherein vortex decay must be a function of location as well as of time is the 
problem of a vortex pair in ground effect; a vortex pair rising towards a free surface may be considered to 
be the same problem. Squire [1955] proposed the following turbulence model for the reduction in 


circulation experienced by a vortex pair in ground effect: 


=X? 
Lt) =-|l-e 4a, (3.27) 
rr 


Oo 








where X* = r°/T gt, Igis the initial vortex strength, t is the vortex age, r is the distance from the vortex 
center to the ground, and ap = v, / IT’, , where V, is the effective eddy viscosity. This dissipation model 
has been applied to the case of trailing vortices generated by a submerged lifting surface (Sarpkaya and 
Henderson [1985] ); although it overpredicts the apparent circulation, it is still felt that the mechanism of 


circulation reduction is strongly linked to the nondimensional parameter X?. 
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Figure 3.7 Variation of p with distance for t > 5 (from Sarpkaya and Shoaff [1979] ). 





A similar decay mechanism may be applied to the case of harmonic flow about cylinders if we 





b? (3.28) 


where I is the initial vortex strength, a and ¢ are constants, and b is the distance from the vortex to the 


body. Note that, with this decay mechanism, vortex strength will decrease with increasing age, or more 
rapidly, with decreasing distance from a boundary; additionally, stronger vortices will decrease more 
rapidly than will a weaker vortex, all other things being equal. The a-factor acts as a constant turbulent 


background dissipation, even when the exponential factor approaches unity. Alternatively, the last 


are(E] at (3.29) 


where AT is the reduction in magnitude at each time step, and I"/b varies as the velocity induced on the 


equation may be recast as 


boundary by the vortex. With this in mind, the vortex which induces a higher velocity on the boundary 


will experience a higher dissipation, all other things being equal. 
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Although vortex dissipation is recognized as an important element of the overall problem, many 
numerical runs have revealed that it is not as significant as originally thought. Having emploved all of the 
various models reviewed above, and others, the proper flow kinematics were still not reproduced. Unless 


an excessive amount of dissipation was applied, the flow kinematics were not significantly altered. 


G. COUNTERVORTICITY 


As the primary vortices grow and roll up behind a cylinder in unidirectional flow, they induce 
significant velocities on the base of the cylinder. Due to the close proximity of these primary vortices, the 
velocity and pressure distributions on the base of the cylinder are not nearly as smooth as on the forebody; 
consequently, several secondary boundary layers and their associated separation points may exist 
simultaneously on the downstream side of the cylinder (see, e.g., Sarpkaya and Butterworth [1992] ). Due 
to the highly irregular nature of the velocity and pressure distributions in this region, any of the 
convenuonal boundary layer separation techniques would fail. Fortunately, however, there are usually 
only two secondary separation points which produce vortices of any significant size, so that the numerical 
analysis is somewhat simplified. Once the secondary separation points are identified and vorticity 1s 
generated. the countervorticies are free to combine with other vortices. 


Davis [1969], working with Sarpkaya, investigated impulsive flow past a circular cylinder and 
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Figure 3.8 Temporal loss of vorticity employed by Nagano et al. {1981, 1982]. 





to 


extended the idea of countervorticity originally introduced by Bellamy-Knights [1967] (also working with 
Sarpkaya) and Sarpkaya [1968]. His rear shear layer (countervorticity) separation points were fixed at 
+55° from the rear of the cylinder, while the primary separation points were fixed at +95°. Deffenbaugh 
and Marshall [1976] also utilized the existence of a rear shear layer; nascent countervorticies were 
introduced at a distance on the body which was assumed to be proportional to the distance at which 
primary shear layer separation occurs after the pressure minimum. Neither of these two studies includes 
any sensitivity analyses to determine system response with and without countervorticies. Stansby and 
Dixon [1982], however, have investigated the significance of secondary vortex shedding for the case of 
unidirectional flow, and claimed that countervorticity was able to significantly improve the ability of their 
model to duplicate experimental results. One might ask why a model such as that employed by Sarpkaya 
and Shoaff [1979] was able to produce excellent results without using a countervorticity mechanism. A 
possible reason might be that Sarpkaya and Shoaff had incorporated a turbulent dissipation function, 
whereas the countervorticity used by Stansby and Dixon may have combined with primary vorticity and 
effected essentially the same dissipation. Another possible reason is that Stansby and Dixon utilized the 
velocity of the nascent vortex when calculating the nascent vortex strength with Equation (3.10); this 
results in vortex strengths of approximately half the magnitude obtained when using the velocity at the 
separation point in Equation (3.10). 

In the current work, countervorticies are introduced at a point at which the rear shear layer 
velocity decreases to some arbitrary percentage of the maximum velocity in that shear layer. Use of this 
extremely simple separation criterion overcomes the difficulties posed by the potential existence of a 
highly irregular velocity distribution on the base of the cylinder; significant difficulty would be 
encountered if any of the boundary layer methods were utilized in the prediction of separation. The 
approximate position of introduction is also acceptable since most of the countervorticity tends to 
congregate in a small triangular area between the primary vortex, the primary feeding sheet, and the 


cylinder. 
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It has also been found, however, that for harmonic flow, the countervorticies provide a continuity 
in the flowfield which allows a smooth and more realistic transition from one half-cycle to the next upon 
flow reversal (see, e.g., Mostafa [1987] ). The countervorticies from one half-cycle roll back over the 
cylinder and are the beginnings of the primary vortices for the next half-cycle. If countervorticies are not 
utilized in the analysis, the system will experience a shock when the new primary shear layers appear at 
flow reversal. Although countervorticies have a significant impact on the computer run time and storage 


requirements, they are an essential part of any DVM of harmonic flow about bluff bodies. 


H. VORTEX CLUSTER AMALGAMATION 


In the interest of economy of storage space and execution time, many DVM’s of unidirectional 
flow about bluff bodies incorporate some means of cluster combination or amalgamation, whereby all of 


the N vortices within one cluster are replaced by a single equivalent vortex located at the center of 


Late a I, (3.30) 


vorticity: 








= Sue (3.31) 








Note that when all of the amalgamated vortices are of like sign, absolute values are not required 
in the last equation. When vortices of opposite sign are combined, however, the absolute value signs 
ensure that a physically realistic position is assigned to the resulting vortex. The first moment of vorticity 
is not conserved, so that if either the generalized Blasius theorem (Equation (2.32))or the time rate of 
change of impulse (Equation (2.39)) is used in the calculation of force, discontinuities will occur 
whenever an amalgamation takes place. Integration of the pressure around the body will usually résult in 


significantly smoother force plots. 
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The use of amalgamation does not propose to equate the velocity fields before and after the 
combination; the method finds its applicability in the fact that, if performed sufficiently far away from the 
body, there will be minimal difference in the flowfield around the body before and after amalgamation. 
The method has been widely used for unidirectional flow (for a few applications, see Laird [1971], 
Chaplin [1973], Sarpkaya [1975], and Sarpkaya and Shoaff [1979] ). As pointed out by Sarpkaya [1989], 
there is no “correct” or “guaranteed” way to perform amalgamation; it is merely an approximation. 

In the case of harmonic flow, however, even when amalgamation is performed at a sufficiently 
distant location, the amalgamated vortices may be convected back across the body. In that case, the 
induced velocities felt by the body will be vastly different from those which would have been produced by 
the onginal cluster. The complex interactions experienced by shed vortices for various Keulegan- 
Carpenter numbers will be significantly different from those observed experimentally if amalgamation is 
performed at an inappropriate time or location. Amalgamation should not be performed for at least the 
first three or four cycles in order to allow the kinematics of the flow to settle into a well-established quasi- 
Steady state pattern; when and if amalgamation is performed, it should only be done to clusters of vorticity 
which are sufficiently distant from the body, and only on those clusters which have little or no likelihood 
of returning to the body. It is evident that the incorporation of all of the above logic into a computer code 
is a formidable task. There are many problems which require consideration, such as the conservation of 
the first moment of vorticity, conservation of circulation, identification of precisely which discrete vortices 


are to undergo amalgamation, etc. Consequently, amalgamations are not performed in the current work. 


I. REDISCRETIZATION 


The process of rediscretization originally developed by Fink and Soh [1974a] has seen somewhat 
limited application (see, e.g., Sarpkaya and Shoaff [1979], Fink and Soh [1974b, 1978], Telste and Lugt 
[1980], Shoaff and Franks [1981], Higdon and Pozrikidis [1985], Hoeijmakers and Vaatstra [1983], and 
Krasny [1986a] ). Fink and Soh investigated the reasons for the random nature associated with the 


spiraling of discrete vortex shear layers (originally noted by Rosenhead [1932] ); a reason for this behavior 
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Figure 3.9 Uniform flow past a flat plate at 45 a) without and b) with rediscretization. 
(From Lust [1981] ) 





was found to be a loganthmic error which resulted whenever unequal vortex spacing occurred along a 
vortex sheet. Their solution to this problem was to redistribute the vorticity along the sheet at every time 
step to achieve equal vortex spacing. A comparison of results obtained with and without rediscretization 
is contained in Figure 3.9, taken from Lugt [1981]. It has been shown (Baker [1980] ), however, that 
curvature effects still produce an error which continues to grow with time; the rediscretization process will 
delay, but not prevent the inevitable instabilities associated with DVM’s. The method is essentially 
nothing more than an artificial smoothing process, and to include it in an application to the harmonic 
flow case would not only increase the computer time required, but could also cloud other more important 
issues. 

Having reviewed in greater detail many of the more important aspects of the DVM as applied to 
unidirectional flow and their extrapolation to the harmonic flow case, the next chapter will show the 


results of a parametric analysis of these component features. 
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IV. A NEW DISCRETE VORTEX MODEL FOR OSCILLATING 
FLOWS 


A. INTRODUCTION 


From the foregoing comparison of previous approaches to the problem of harmonic flow about 
circular cylinders, the most significant drawback of any of the models is associated with the prediction of 
flow separation. The use of fixed separation points or of Schlichting’s [1932] separation criterion for low 
K are inappropriate since these methods do not allow for the interaction of the returning wake with the 
primary boundary layers. There are other aspects of the previous methods which require further work 
(lack of a dissipation scheme, method of asymmetry initiation, etc.), but it is felt that these are secondary 


issues. 


B. DETAILS OF THE NUMERICAL MODEL 


The current model attempts to allow the returning wake to interact with the boundary layers on 
the forebody, thereby affecting the growth and kinematics of the vortices which are being formed in the 
current half-cycle. The Pohlhausen method, utilized by Deffenbaugh and Marshall [1976}, Sarpkaya and 
Shoaff {1979}, and Mostafa [1987], was used for laminar boundary layers, and other methods were used 
for turbulent boundary layers; each will be described in detail. Unless otherwise specified, the following 


items were incorporated in each of the muns: 


1. Keulegan-Carpenter Number 


A Keulegan-Carpenter number of K = 10 was utilized. At very low K, the flow maintains a 
bilateral symmetry and does not allow vortices to move to the side opposite to that on which they were 
generated. It is precisely this cross-wake motion which is desired in the model, and this begins to manifest 
itself in the drag-inertia regime (8 < K < 15). On the other hand, the larger the Keulegan-Carpenter 
number, the larger the number of discrete vortices produced per flow cycle (assuming, of course, that the 


same timestep size is used throughout the analysis). Consequently, the choice of K = 10 kept the number 


Sl 


of discrete vortices in the flow field to a reasonable level, while allowing computations to run for several 
cycles in order to reach a quasi-steady state. 

2. Vortex Proximity-Combination 

Vortices were combined only if they were of opposite sign and only when they approached to 


within a distance of [Az < 0.1. This ensured that a discrete vortex could not grow in magnitude as it 


returned to the cylinder, thereby hindering any separation point calculations. 


3. Amalgamation 


Amalgamation of a cluster of vortices was not performed. Early attempts at amalgamation in 
harmonic flow revealed that, as an amalgamated vortex returned to the cylinder, its effect was 


significantly different from that produced had it not been amalgamated (see, also, Panaras [1987] ). 


4. Wall Annihilation 


The wall annihilation distance was set at 1.18 on the forebody in an attempt to prevent discrete 
vortices from hindering any separation point calculations; on the base of the cylinder, the annihilation 
distance was 1.1, so that upon flow reversal, there would not be a significant number of discrete vortices 


lost when the annihilation distance suddenly increased to 1.18. 


5. Convection Scheme 


A first order convection scheme was used in lieu of a second order scheme, which produced 
unrealistic flow patterns, due possibly to numerical instabilities associated with the use of a higher order 


scheme in conjunction with an already very small timestep size. 


6. Countervorticity 


Countervorticity was employed in all runs in order to provide a continuity from one half-cycle to 
the next. If it were not for the countervorticity, there would be no vorticity introduced into the flow from 
the time the separation calculations ceased (late in a half-cycle) to the time the separation calculations 


resumed (upon flow reversal). If these separation.calculations commenced without the benefit of any 
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previous countervorticity calculations, the in-line and lift force plots showed unrealistic and significant 


discontinuities. 


7. Asymmetry Initiation 
Asymmetry initiation of the type employed by Sarpkaya and Shoaff [1979] was found to be much 


more suitable than any of the other methods previously discussed. The only difference was that 
asymmetry was introduced during roughly the first quarter-cycle of flow (T! = 2.0, T2 = 6.0 in Figure 
3.4), or 0.1 < UT < 0.3 in order to allow the asymmetry to take effect in a reasonable period of time. 

8. Dissipation 

Several functional forms of dissipation were discussed in Chapter III, and from preliminary 
investigations, it was ascertained that dissipation itself was probably not the single most important 
triggering parameter which would produce the proper flow kinematics. As noted by Sarpkaya and Shoaff 
[1979], the incorporation of dissipation in a DVM of impulsive flow resulted in a reduction of lift and 
drag force magnitudes, but did not significantly affect the flow kinematics; a similar conclusion was 
arrived at by Mostafa [1987] for the case of harmonic flow. Dissipation is still, however, an important 
aspect of the flow, and was incorporated using the same functional form as utilized by Sarpkaya and 
Shoaff [1979] (see Figure 3.7), but with a value of p = 0.2 for the impulsive flow run and p = 0.5 for the 


harmonic flow runs. 


9. Unsteady Kutta Condition 
The unsteady Kutta condition (Equation (3.15)) was employed in all nascent vortex strength 
calculations. 


10. Timestep Size 


Timestep size was held constant at 0.125. 


11. Minimum Vortex Strength 


Vortices below a certain minimum magnitude (0.005) were removed from the flowfield since 


their contributions were deemed negligible; this helped to minimize the number of vortices. 


12. Vortex-Induced Velocity Calculation 


The Lamb vortex velocity distribution (Equation (3.3)) was employed throughout. 


C. VERIFICATION OF THE MODEL 


The model was run using an impulsive flow in lieu of a harmonic flow, and the resulting 
kinematics and gross characteristics were found to be in excellent agreement with experimental 
(Sarpkaya [1978] ) and numerical (Sarpkaya and Shoaff [1979] ) results. The functional forms of 
asymmetry and dissipation were identical to those used by Sarpkaya and Shoaff [1979], except that p = 0.2 
was used instead of the value of p = 1.0 (see Figure 3.7). The annihilation region around the cylinder was 
1.06. 

Figure 4.1a shows a time sequence through t = 20.0, while Figures 4.1b through 4.1f depict drag 
and lift forces, separation and stagnation angles, and nascent vortex strengths. The plots of separation 
angle and nascent vortex strengths refer to two primary (BL1 and BL2) boundary layers and two 
secondary (BL3 and BL4) boundary layers as indicated in Figure 4.2; for harmonic flows, when the flow 
is right to left, the primary boundary layers will be BL3 and BL4, and the secondary boundary layers will 
be BL1 and BL2. It can be seen that the magnitude and location of the secondary nascent vortices vary 
erratically since the region in which they are formed is highly confused. It is also possible that the 
secondary separation points may come and go as velocities on the base of the cylinder rise and fall due to 
the proximity of the primary vortices to the cylinder. (It was found that the inclusion of secondary 
vorticity in the flow did not significantly improve the results, contrary to the findings of Stansby and 
Dixon [1982] .) Also shown in Figure 4.2 are the forward stagnation angle and the location of the total 
force vector acting on the cylinder; the arrow within the cylinder indicates the magnitude and direction of 


the ambient velocity. Positive (counterclockwise) vortices are indicated by a “+”, and negative (clockwise) 


34 


2.000 








Saeeee fees | 
=e. = 1) .0 1 2 3 4 5 6 7 8 9 40 43 l2 13 34 15 16 17 18 19 wW 21 22 


* S.000 


eo |e * a 23 #4 S$ 6 7 8 9 340 433 32 33 14 «15 36 37 18 19 20 23 22 


4.000 





“2 -- 0 1! 2 3 4 5 6 7 8 9g 40 11 12 13 14 «3S $6 17 18 19 20 23 22 


2 5.000 


“2 -! O 1! 2 3 4 5S 6 7 8 SY 10 13 12 33 14 35 136 17 18 19 2 23) 22 


Figure 4.1a Model verification with impulsive flow: Kinematics. 
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Figure 4.la (con’t.) Model verification with impulsive flow: Kinematics. 


56 


jaepeelele 








“2-1 0 1 2 3 #4 S 6 7 8 9 10 11 12 13 14 18 16 17 18 19 20 21 22 


11.000 





“2 7-1 0 41 2 3 4 S$ 6 7 8 9 tO 48 12 13 14 «15 16 17 18 19 20 21 22 


12.000 





“2-1 0 131 2 3 #4 S$ 6 7 8 9 10 th 12 13 14 15 16 17 18 19 20 21. 22 


s 13.000 











2 -! 0 1 2 3 4 S§ 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 


Figure 4.1a (con’t.) Model venfication with impulsive flow: Kinematics. 
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Figure 4.1a (con’t.) Model verification with impulsive flow: Kinematics. 
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Figure +.1a (con’t.) Model verification with impulsive flow: Kinematics. 
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Figure 4.1b Model verification with impulsive flow: Drag. 





vortices are indicated by a “0”; the strength of the vortices is proportional to the size of the symbols. In 
the plots of stagnation and separation angles. angles are measured from the positive x-axis. The plot of 
lift coefficient 1s accompanied by a plot of net circulation acting on the cylinder (1.e., the sum of all of the 
image vortices within the cylinder). The later plots of in-line force coefficients for harmonic flow also 


include a plot of the ambient flow as a reference. 


Figure 4.1c Model verification with impulsive flow: Lift. 
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Figure 4.1d Model verification with impulsive flow: Separation points. 
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Figure 4.le Model verification with impulsive flow: Stagnation point. 
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Figure 4.1f Model verification with impulsive flow: Nascent vortex strengths. 


Figure 4.2 Locations of the various vortex sheets (see text for legend). 
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D. FLOW VISUALIZATION 


Until recently, surprisingly few flow visualization experiments had been performed for harmonic 
flow about circular cylinders. The data of Grass and Kemp [1979] (see Figure 2.3) for K = 38 indicate 
that the flow begins anew at every flow reversal almost as if it were begun impulsively. Sawaragi and 
Nakamura [1979] presented sketches of observed flow patterns at various Keulegan-Carpenter numbers, 
but did not describe in detail what occurred from one half-cycle to the next (see Figure 4.3). Wilson 
[1983], working with Sarpkaya, obtained detailed pressure measurements about circular cylinders in a U- 
tube, and was able to predict the vortex shedding patterns depicted in Figure 4.4a for the drag-inertia 
regime and Figure 4.4b for the drag-dominated regime (see also Sarpkaya and Wilson [1984] ). In the 
drag-inertia regime, it can be seen that, in each half-cycle, the major or dominant vortex is shed on the 
same side of the cylinder, so that a “transverse” vortex street results, reminiscent of the Karman vortex 
street Seen in unidirectional flow. For the drag-dominated regime, however, the vortex shedding pattern 
is diagonal in nature, with vortex pairing occurring in diagonally opposing quadrants. 

A series of flow visualization experiments was conducted by Sarpkaya [1985] in an experimental 
apparatus at the Naval Postgraduate School in a water table. Figure 4.5 shows a time sequence from a 
representative run for K = 10; in these experiments the cylinder (D = 1.5 inches) was oscillated in a water 
table of depth 12 inches, using a period of T = 3.0 seconds. The photographs were taken with an 
automatic Nikon F3 camera. For the photographs shown, R = 12,800 and B = 1280. The end of the 
Plexiglas cylinder was within 1/16-inch of the bottom of the water table, so that end effects were minimal. 
It can be seen that the vortex shedding is indeed on the same side (1.e., left) of the cylinder. By varying 
the amplitude of oscillation to obtain a Keulegan-Carpenter number of approximately 12, the shedding 
pattern exhibited an instability, wherein it could shift from the “same side” shedding pattern show in 
Figures 4.4a and 4.5 to the diagonal pater shown in Figure 4.4b. These results were in conformance 


with those presented by Bearman et al [1981] and Wilson [1983]. A detailed and succinct description of 
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the flow kinematics characteristic of the drag-inertia regime (8 < K < 15) 1s presented in Sarpkaya and 
Butterworth [1992] and Sarpkaya [1992]. 

Williamson [1985] has performed detailed flow visualization experiments with simultaneous 
force measurements over a wide range of Keulegan-Carpenter numbers; his results agree well with those 
presented herein. Williamson found that, in the area of interest, there were two broad categories of flow, 
7<K< 15 and 15 < K < 24, with an intermediate transition over the interval 12 <K < 15. In the range 
of 7 < K < 13 (see Figure 4.6a) a transverse street was observed (in Williamson's illustrations, the arrows 
refer to the cylinder motion, and the vortices are viewed from a reference frame which moves with the 
cylinder). Over the range 13 < K < 15, (Figure 4.6c), the wake 1s comprised of a series of vortex pairs 
convecting away each cycle at roughly 45 to the flow oscillation direction, and only on one side of the 
cylinder. Finally, Williamson observed what he refers to as a “double-pair wake” over the interval 
15 < K < 24 (Figure 4.6c) where two major vortices (i.e., including a minor vortex which never amounts 
to much, a total of three vortices) are shed per half cycle, so that the fundamental lift force oscillates at 
three times the cylinder oscillation frequency (Figure 4.6d). Also shown in Figure 4.7 are typical lift and 


in-line force traces obtained by Williamson in a U-tube for the regime 7 < K < 15. 


E. FIXED SEPARATION POINTS 


As a first approximation to more sophisticated boundary layer techniques, a computer run was 
conducted wherein fixed separation points were employed at the top and bottom of the cylinder. In order 
that results could be compared with those obtained by Stansby [1977], a Keulegan-Carpenter number of 
K = 15 was utilized, an ambient velocity of U = U,, cos ot was used instead of U = U,, sin ot, and neither 
countervorticity nor dissipation was incorporated in the model. Stansby stated that he initiated asymmetry 
by moving vortices of the same sign downstream by approximately one-fifth of a radius at approximately 
t = 1.0; accordingly, the current model was modified to produce approximately the same effect by 
employing B = 0.0143 and T1 = 1.5 and T2 = 5.0 in Figure 3.4. In his calculations, Stansby based the 


strength of his nascent vortices on the velocity of the nascent vortex itself, and not on the velocity at the 
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Figure 4.3 Vortex flow patterns as observed by Sawaragi and 
Nakamura [1979]. 


Figure 4.4a Vortex flow patterns as hypothesized by Wilson [1983] 
for8<K < 15. 
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separation point on the cvlinder, as in Equation (3.10). This results in vortices which are approximately 
9/16 of the strength calculated via Equation (3.10). By including this factor in the calculation of the 
Strength of nascent vortices, a reasonable approximation of Stansby’s calculation should have been 
achieved. 

Stansby’s results are shown in Figures +.8a and 4.8b. In the plot of vortex positions, a “+” 
denotes a vortex of clockwise circulation, whereas an “X” denotes one of counterclockwise circulation; 


additionally, those vortices shed during the most recent half-cycle are enclosed by a dashed line. In the 


Figure 4+.4b Vortex flow patterns as hypothesized by Wilson [1983] 
for K > 20. 
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Figure 4.5 Results of flow visualization experiment for K = 10. 
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Figure 4.5 (con’t.) Results of flow visualization experiment for K = 10. 
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Figure 4.6a Vortex kinematics observed by Williamson [1985] for 7< K < 15. 


Figure 4+.6b Vortex kinematics observed by Williamson [1985] for 13 <K < IS. 
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Figure 4.6c Vortex kinematics observed by Williamson [1985] for 15 < K < 24. 
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Figure 4.6d Lift force corresponding to 15 < K < 24 (from Williamson [1985] ). 
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Figure +.7 Harmonic flow traces: (a), (b) for K = 11 and (c), (d) for K = 13.7 
(from Williamson [1985] ). 


/T = 1795 


Figure 4.8a Vortex flow kinematics for K = 15 (from Stansby [1977] ). 
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Figure 4.8b Results obtained by Stansby [1977] for K = 15. 





force plots, C, denotes in-line force coefficient. C, the lift coefficient, and the dashed line, the in-line 
force coefficient predicted by Morison’s equation. Results obtained with the current analysis are presented 
in Figures 4.9a through 4.9d. 

In general, the vortex clusters in Stansby’s calculations appear to wrap around the cylinder. 
Also, the shed clusters do not move very far away from the cylinder, which indicates that the vortices are 
relatively weak and do not. therefore, induce significant velocities upon one another. In the current 
analysis, as vortex clusters are swept back across the cylinder upon flow reversal, they “stnp” or “peel off” 
several discrete vortices from the attached vortex clusters which are sull growing. The flow remains 
roughly symmetric in the immediate vicinity of the cylinder almost until the end of the first complete 
cycle, after which the next two major vortices shed from the same (i.e., lower) side of the cylinder, and the 
third major vortex (at t/T = 2.0 ) appears to be shed from the top of the cylinder. 

Aside from a somewhat general agreement in magnitude and shape of the in-line forces, there is 
no good agreement in the forces predicted by the two models. Despite all attempts to reproduce Stansby’s 
results, this proved to be an unattainable goal. Suffice it to say that neither Stansby’s model nor the 


current simulation of his work was able to faithfully reproduce the experimentally observed flow patterns. 


72 






eis 10-90 =. =? “6 =S=4. <3 =2 =| © 1 2 3 4 5 6 % @ 9 10 1 22 





' 
sicws tt =10) -9 =§" 7 +6 -§ -=4 -3 -2 =) 0 | 2 3 2S. 65-7 9) 1Oo ss) 2 





“12-11 -10 -9 -8 -7 -6 -S -4 -3 -2 -1 =Q 1 2 3 4 § 6 7 46.39 4011 12 





eit 10 <9) =8- 97 6-5 4-53 -2--1, 0 1 2 <-S2 4ANS 6s) BS AD I) KAZ 


Figure +.9a Simulation of Stansby’s model for K = 15: Kinematics. 
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Figure 4.9a (con’t.) Simulation of Stansby’s model for K = 15: Kinematics. 
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Figure 4.9a (con’t.) Simulation of Stansby’s model for K = 15: Kinematics. 
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Figure 4.9a (con’t.) Simulation of Stansby’s model for K = 15: Kinematics. 
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Figure 4.9a (con’t.) Simulation of Stansby’s model for K = 15: Kinematics. 
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Figure 4.9a (con’t.) Simulation of Stansby’s model for K = 15: Kinematics. 
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Figure 4.9a (con’t.) Simulation of Stansby’s model for K = 15: Kinematics. 
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Figure 4.9a (con’t.) Simulation of Stansby’s model for K = 15: Kinematics. 
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Figure +.9a (con’t.) Simulation of Stansby’s model for K = 15: Kinematics. 
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Figure 4.9a (con’t.) Simulation of Stansby’s model for K = 15: Kinematics. 
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Figure 4.9a (con’t.) Simulation of Stansby’s model for K = 15: Kinematics. 


83 





“12-11 -10 -9 -8 -7 -6 -S -4 -3 -2 -1 #0 


N 
u 
ob 
wn 
m 
™ 
@ 
wo 
° 
= 





=I2-11 -10 -9 -8 -7 -6 =5 <4 =3>0-2)>=1 > 0 {92> 3 9495S 06007 oe Ore ce 








“12-11 “10 -9 -8 -7 -6 -S -4 -3 -2 -1 «#9 1 Pg, a7 Ss 6. 7 ® 9 10 1 12 
= - 
oe 
re! 
@ee 
@ of vee 
; Pde 
bs wad.e 
= © 9° 
i] oe Oe 7) 
Oo 6 
~ om @e 
e 
] 
ve 
“l2-11 -10 -9 -8 -7 -6 -§ -4 -3 -2 -1 9 ! 2 3 4 8&5 6 7 3.79 10 11° 12 


Figure 4.9a (con’t.) Simulation of Stansby’s model for K = 15: Kinematics. 
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Figure 4.9a (con’t.) Simulation of Stansby’s model for K = 15 
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Figure 4.9a (con’t.) Simulation of Stansby’s model for K = 15: Kinematcs. 
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Figure 4.9a (con’t.) Simulation of Stansby’s model for K = 15: Kinematics. 


Figure +.9b Simulation of Stansby’s model for K = 15: In-line force coefficients. 





F. USE OF AN INTEGRAL MOMENTUM BOUNDARY LAYER SEPARATION 
CRITERION 


Most previous investigations of the problem of harmonic flow about circular cylinders have 
utilized ad hoc assumptions concerning the location of the separation point. The use of an integral 
momentum method of predicting boundary layer separation (in this case, the method of Pohlhausen 


[1921] ) requires none of these assumptions, and allows for the realistic possibility of a mobile separation, 
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Figure 4.9¢c Simulation of Stansby’s model for K = 15: Lift force. 
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Figure 4.9d Simulation of Stansby’s model for K = 15: Nascent vortex strength. 
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point (Deffenbaugh and Marshall [1976], Sarpkaya and Shoaff [1979], Mostafa [1987] ). Most 
importantly, such a method allows for the free interaction of the returning wake with the boundary layer, 
although this can produce difficulties as depicted in Figures 3.1 through 3.3. When the velocity 
distribution is perturbed in such a fashion, any type of an integral momentum calculation cannot predict 
separation with reasonable accuracy. When such a situation occurred in the present model, separation 
was Said to occur at a position on the cylinder where the velocity had fallen to 97 percent of the maximum 
velocity. This value was obtained from an analysis of separation data on the impulsive flow run originally 
utilized in validating the model. A similar method of calculating separation was performed by Franks 
[1983] and Mostafa [1987]. 

The results are shown in Figures 4.10a through 4.10f. Again, the proper flow kinematics did not 
result. Aside from the first cycle of flow which contained transient effects, there is a repeatable diagonal 
shedding pattern which is characteristic of the shedding observed at higher Keulegan-Carpenter numbers 
(see, e.g., Figures 4.4b and 4.6c). During this shedding, as a large vortex cluster passes over the shoulder 
of the cylinder, it “pairs” with a cluster of opposite vorticity which is still growing while attached to a 
boundary layer. It is, consequently, prematurely “stripped” off of the cylinder, so that there are three 
vortices shed per half-cycle rather than the two depicted in Figure 4.4b. Although this triple shedding 
results in the three cycles observed in the lift coefficient, it should be noted that the in-line force 
coefficient retains reasonable magnitude and qualitative agreement with experimental results. 

When the boundary layer calculation failed and the aforementioned velocity ratio method was 
employed in ascertaining the separation point, the separation angle could still fluctuate as much as 20° 
with associated fluctuations in nascent vortex strength. Forebody stagnation angles showed variations on 
the order of 30° from the x-axis. Neither of these two angular fluctuations is physically realistic. 

It should be noted that the incorporation of countervorticity in the model adds a significant 
amount of continuity between successive half-cycles. This is most evident when observing the in-line 


force trace of a run without countervorticity (Figure 4.11), where it can be seen that the introduction of 
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Figure 4.10a Laminar separation cntenon for K = 10: Kinematics. 
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Figure 4.10a (con’t.) Laminar separation criterion for K = 10: Kinematics. 
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Figure 4.10a (con’t.) Laminar separation criterion for K = 10: Kinematics. 
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Figure 4.10a (con’t.) Laminar separation criterion for K = 10: Kinematics. 
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Figure 4.10a (con’t.) Laminar separation criterion for K = 10: Kinematics. 
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Figure 4.10a (con’t.) Laminar separation criterion for K = 10: Kinematics. 


96 


Cc) 
=O 








12 


11 


7S 28s SG. 25 94. “H3 > 2 


va 


ei2-11-=10 





= 

[24] 

wo 

nw 

w 

Oy 
se + EE yw 
ele (.¥ bs : 

oe A 


=8°°77\" -6 =5S-.=4 


=a 


=l2 =I). -10 


O l- @- €- b- 





12 


“8 -7 -6 -S -4 -3 -2 


=o 


me 1) “10 








12 


11 


p27 -6- =§ §=4 5-3-2 


=3 


=|2-11 -10 


Figure +.10a (con’t.) Laminar separation cniterion for K = 10: Kinematics. 
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Figure 4.10a (con’t.) Laminar separation criterion for K = 10: Kinematics. 
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Figure 4+.10a (con’t.) Laminar separation criterion for K = 10: Kinematics. 
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Figure 4.10a (con’t.) Laminar separation criterion for K = 10: Kinematics. 
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Figure 4.10a (con’t.) Laminar separation critenon for K = 10: Kinematics. 
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Figure 4.10a (con’t.) Laminar separation criterion for K = 10: Kinematics. 
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Figure 4.10a (con’t.) Laminar separation cnterion for K = 10: Kinematics. 
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Figure +.10a (con’t.) Laminar separation criterion for K = 10: Kinematics. 
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Figure 4.10a (con’t.) Laminar separation cniterion for K = 10: Kinematics. 
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Figure 4.10 b Laminar separation cniterion for K = 10: In-line force. 


Figure 4.10c Laminar separation criterion for K = 10: Lift force. 
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Figure 4.10d Laminar separation cniterion for K = 10: Separation angle.. 
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Figure 4.10e Laminar separation criterion for K = 10: Stagnation angle. 
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Figure +.10f Laminar separation criterion for K = !0: Nascent vortex strength. 
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Figure +.11 In-line force trace for run without counter vorticity incorporated. 
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nascent vorticity at the beginning of each half-cycle (VT = 0.5, 1.0, 1.5, etc.) radically affects the in-line 
force. If, however, countervorticity has been incorporated, the model is able to continue from the previous 
half-cycle without incident (see Figure 4.10b). 

Recognizing the sensitivity of the model to conditions in the nascent region, it was thought that it 
might be appropriate to employ the previously-mentioned velocity rauio method for determining the 
separation points at all times, and not just when an integral momentum technique failed. It was hoped 
that this would eliminate, or at least minimize the jumps in both separation position and in nascent vortex 
strength. Results were not significantly improved, and relatively large excursions still occurred in the 
separation points due to the close approach of discrete vortices and the subsequent jumps in the location of 


the velocity maximum. 


G. TURBULENT BOUNDARY LAYER 
Yuen [1985], working with Sarpkaya, has found that, at Reynolds numbers heretofore assumed as 


laminar, even for low Keulegan-Carpenter numbers, the boundary layer is in fact turbulent, rather than 
laminar, Although several methods of predicting separation of a turbulent boundary layer exist, they are 
usually either too difficult to implement or very costly in terms of computer time. A simpler solution to 
test the propriety of implementing a turbulent separation criterion was to use the aforementioned velocity 
ratio method, but specifying separation to occur at a point at which the tangential velocity has fallen to a 
value of approximately 86 percent of the maximum tangential velocity. This essentially delayed 
separation, so that it appeared that the boundary layer was able to sustain an adverse pressure gradient 
longer than would a laminar boundary layer which separated at approximately 97 percent of the maximum 
tangential velocity. Plots of vortex positions and other pertinent data are shown in Figures 4.12a through 
4.12f. Again, the proper flow kinematics did not result. 

The convection of vortex clusters is generally very similar to the run for laminar flow for the first 
two cycles with the same diagonal shedding pattem and three vortices shed per half-cycle. The 


magnitudes of discrete vortices are generally 20 percent smaller than in the laminar flow case, due to the 
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smaller values of separation velocity utilized in Equation (3.15). Because of the smaller magnitude of 
vortex clusters, smaller mutually-induced velocities result, so that clusters tend to linger longer in the 
vicinity of the cylinder. Although the separation points are generally 20° to 30° further back than in the 
laminar case, the positions of the separation points still exhibit significant jumps during the close 


approach of discrete vortices to the separation region. 


H. USE OF CEBECI-CARR PROGRAM TO PREDICT SEPARATION 
Recognizing the susceptibility of all integral momentum boundary methods to perturbations in 


the boundary layer velocity profile, and also the arbitrariness of specifying a velocity ratio at which 
separation would be said to occur, a third method was investigated. A computer program for calculating 
time-dependent laminar or turbulent boundary layers has been developed by Cebeci and Carr [1984]. 
Preliminary usage of the program on velocity distributions encountered in the current analysis showed that 
laminar separation occurred within 1° of the Pohlhausen method; turbulent separation was predicted to 
occur much further downstream, in agreement with the results presented by Takada [1975]. 

Unfortunately, the program required much too much computer time to be used in conjunction with the 
discrete vortex method, which by itself, presents significant demands on the computer operating system. 
Similar demands on system time were encountered by Franks [1983] when implementing an earlier 
boundary layer program developed by Cebeci [1978]. Cebeci and Carr’s program was, therefore, never 


tested on velocity profiles perturbed as shown in Figures 3.1 through 3.3. 


I. CONCLUDING REMARKS 


The present version of the discrete vortex model is incapable of simulating flows wherein shed 
vortices return to the boundary at which they were generated. Perhaps the two most significant difficulties 
associated with the model are the accurate determination of primary separation points and the 
implementation of a realistic vortex decay mechanism. It had been hoped that the use of a separation 
point scheme which required a minimum of arbitrary assumptions would allow the proper interaction of 


the shed vortices with the boundary layer, thereby yielding significantly more accurate results than have 
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any of the previous investigations of the same problem. The only successful duplication of the flow 
kinematics has been achieved by Mostafa [1987], but the model was not universally applicable to all 
values of the Keulegan-Carpenter number; neither the current model nor any of the other investigations 
(save Mostafa’s [1987] ) have been able to accurately produce the proper flow kinematics, except in the 
limit of infinite Keulegan-Carpenter number (i.e., impulsive unidirectional flow). 

The in-line force 1s reasonably well predicted by the current model. It was found that the model 
required the incorporation of countervorticity in order to provide a smooth transition from one half-cycle 
to the next. Although recognized to be an important aspect of the problem, vortex dissipation was found 
not to be of major influence in the flow kinematics. Only when the dissipation was increased to extremely 
large values were the kinematics significantly affected. 

Further research is required in the area of separation point determination, particularly with 
regard to the difficulties associated with analyzing velocity distributions perturbed as shown in Figures 3.1 
through 3.3. It is believed that this 1s the key to obtaining the proper flow kinematics. Once the problem 
of flow kinematics has been solved, the important effect of vortex dissipation on force coefficients may be 


investigated. 
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Figure 4.12a Turbulent separation criterion for K = 10: Kinematics. 
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Figure 4.12a (con’t.) Turbulent separation cntenon for K = 10: Kinematics. 
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Figure 4.12a (con’t.) Turbulent separation criterion for K = 10: Kinematics. 
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Figure 4.12a (con't.) Turbulent separation cntenon for K = 10: Kinematcs. 
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Figure 4.12a (con’t.) Turbulent separation criterion for K = 10: Kinematics. 
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Figure +.12a (con’t.) Turbulent separation cntenon for K = 10: Kinematics. 
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Figure 4.12a (con’t.) Turbulent separation criterion for K = 10: Kinematics. 
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Figure 4.12a (con’t.) Turbulent separation criterion for K = 10: Kinematcs. 
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Figure 4.12a (con’t.) Turbulent separation criterion for K = 10: Kinematics. 
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Figure 4.12a (con’t.) Turbulent separation criterion for K = 10: Kinematics. 
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Figure 4.12a (con’t.) Turbulent separation criterion for K = 10: Kinematics. 
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Figure 4.12a (con’t.) Turbulent separation cnternon for K = 10: Kinematics. 
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Figure 4.12a (con’t.) Turbulent separation criterion for K = 10: Kinematics. 
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Figure 4.12a (con’t.) Turbulent separation cntenon for K = 10: Kinematics. 
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Figure 4.12b Turbulent separation criterion for K = 10: In-line force. 


Figure 4.12c Turbulent separation criterion for K = 10: Lift force. 
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Figure +.12d Turbulent separation criterion for K = 10: Separation angle. 
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Figure +.!2e Turbulent separation criterion for K = 10: Stagnation angle. 
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Figure +.12f Turblent separation cntenon for K = 10: Nascent vortex strength. 
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V. PARALLEL BLADE-VORTEX INTERACTIONS 

A. INTRODUCTION 

In addition to the return of vortices to their generating surface in the case of harmonic flow, there 
are numerous other engineering applications where regions of concentrated vorticity (in an otherwise 
irrotational flow) impinge on edges and surfaces: leading tubes in heat exchanger and reactor tube 
bundles, fluid valve internal surfaces, tall office buildings subjected to wind gusts, supersonic intakes, 
control surfaces on submarines and surface ships, turbomachinery and helicopter blades passing through 
shed vortices, flaps on short take-off and vertical landing (STOVL) aircraft, and even computer chips on 
electrical circuit boards. In many of these situations, not only is the unsteady loading of the impingement 
edge or surface of importance, but also the radiated noise characteristics. The degree of concentration of 
the vorticity and the relative orientation of the solid surface on which the vorticity acts will determine the 


type of the interaction and the nature of the induced pressure field. 


B. PREVIOUS INVESTIGATIONS 
As pointed out by Doligalski et al [1994], as a vortex approaches a wall, the viscous response of 


the near-wall flow is a function of the vortex Reynolds number, R, = I /(2zv). At higher R, , the near- 
wall flow erupts, ejecting a new vortex structure into the outer flow; this phenomenon, first observed by 
Harvey and Perry [1971] (Figure 5.1 ), results in ejected or erupted (secondary) vortices which are of a 
strength comparable to the approaching (primary) vortex, and which interact with the primary vortex in 
an inviscid and most pronounced fashion. Indeed, several researchers have also reported the existence of 
a smaller tertiary vortex (of the same sign as the primary vortex--see Figures 5.2 and 5.3 ), observed both 
experimentally and in the course of numerical simulations (Chuang and Conlisk [1989], Walker et al 
[1987] ). Although concerned with the interaction of coherent vortices with short flat plates, the laser- 
Doppler velocimeter measurements of Swirydczuk et al [1993] showed that strong secondary and tertiary 


vorticity was produced. 
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SEPARATION 
a) 
Figure 5.1 Suggested interpretation of total-head surveys: a) section 
downstream of inital separation, b) subsequent development of 
secondary vortex. (From Harvey and Perry [1971] ) 


Figure 5.2 Streamline patterns from presence of a vortex above a wall fora) R=4.4x 
10° and b) R=2.2x 10*. (From Chuang and Conlisk [1989] ) 
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Figure 5.3 Pmmary, secondary, and tertiary vortex rings: a) primary rng approaching the solid surface 
and inducing separation in the boundary layer; b) generation of a secondary vortex nng; c) generation of a 
teruary vortex ning. (From Walker et al [1987] ) 





Stremel [1985, 1987, 1990] attempted to model the interaction of a helicopter rotor wake with 
components of the aircraft other than the rotor. He represented the approaching rotor wake as 
a series of single, concentrated finite-cored vortices which, as they approached the body (where the flow 
could no longer be considered inviscid), were “distributed” to a finite difference computational mesh and 
permitted to convect as part of the viscous solution. Results were presented only for R of 40, 100, and 
3000 and for body configurations of a circular cylinder and a 4:1 elliptic cylinder at 45° incidence. The 
interaction of the vortical wake and the body resulted in the generation of vorticity in the form of flow 
reversal and local separation, and significantly altered loading on the body. 

Srinivasan [1985] utilized a perturbation technique in conjunction with Euler and thin-layer 
Navier-Stokes approaches to investigate two-dimensional (also called parallel) transonic and subsonic 


blade-vortex interactions (BVI). The close agreement between the thin-layer Navier-Stokes and Euler 
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solutions led Srinivasan to conclude that viscous effects were negligible, but it must be remembered that 
this work was concerned with very high speed flows. A similar perturbation technique was also used to 
further investigate the two- (Smnivasan et al [1986] ) and three-dimensional BVI (Srinivasan et al 
[1993] ). These researchers recognized the importance of core structure during the close passage of 
vortices to bodies, and therefore incorporated into their analyses analytically prescribed, finite-cored 
vortices (Lamb- or Oseen-like); however, these investigations did not account for core distortion, which 
have been shown to be quite significant by numerous experimental investigations. 

Full Navier-Stokes solutions (Tang and Sankar [1987], Kaykayoglu and Graham [1989], and 
Ohring [1986] ) have also been attempted, but all have been limited to relatively low R. Additionally, 
while numerical solutions of the full Navier-Stokes equations have been successful in predicting many 
attached flows, such methods suffer from numerical diffusion; it has been found (Tang and Sankar 
[1987] ) that a vortex released approximately five chordlengths upstream from an airfoil practically 
disappears by the time it encounters the leading edge. 

As mentioned previously, DVM’s are most appropriate for situations where the flow of interest 
contains regions of concentrated vorticity embedded in an otherwise potential flow. Conlisk and Rockwell 
[1981] were the first to utilize the DVM to study the case of impinging shear layers; their work 
investigated the movement of single concentrated discrete vortices or clusters of discrete vortices past a 
Sharp corner (Figure 5.4 ). Not surprisingly, they discovered that this simplified approach, although it 
provided the insight required for further work, failed to model the distortion (and subsequent severing) of 
the vorticity field near the impingement surface. Panaras [1985] utilized the DVM to investigate the 
pressure pulses resulting from the interaction between a single concentrated vortex with a ramp and with 
an ellipse, while Conlisk and Veley [1985] employed it to study the interactions between point vortices 
and a corner. Poling et al [1987] utilized arrays of single, large vortices approaching an airfoil, and 


introduced discrete vortices at the trailing edge to satisfy the Kutta condition (Figure 5.5 ). 
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As noted above, core distortions can be significant when pnmary voruces come into close 
proximity to (or even impact) solid boundanes or pass close to another vortex. Hardin and Lamkin 
[198+] were the first to attempt to incorporate core distortion, emploving a finite-difference solution to the 
Navier-Stokes equations for R < 200. Panaras {1985, 1987] and Poling et al [1988, 1991] used various 
configurations of discrete vortex clusters as thev passed close to, and were even split by, an airfoil (Figure 
5.6 ): both of these invesugations were purely potenual. and the latter two introduced discrete vortices at 
the trailing edge to satisfy the Kutta condition. Panaras {1985, 1987] utulized discrete vortices of equal 
strength, while Poling et al {1988, 1991] emploved a multi-nng distribution of discrete vortices of 
radiallv-varving strength to more Closely approximate the Gaussian vorticity distribution observed in 
vortices in nature. More recently, Lee and Smith [1991] discussed vortex instabilities and diffusion which 
result from the discretization of a vortex into a cluster. Panaras {1990] extended his previous vortex 
cluster model to investigate vortex impingement on a corner. Kaya { 1992] and Kaykayoglu and Kavya 
[1992] investigated the interaction of a Karman vortex street with elliptical and sharp leading edges; for 


the case of the sharp leading edge, secondary vorticity was produced to satisfy the Kutta condition as 
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Figure 5.4 Vortex moving past a comer, with path and associated 
pressure trace; pressure p(t) computed at 2 = 0.95/ in the physical 
plane. (From Conlisk and Rockwell [1981] ) 
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Figure 5.5 Initial configuration of an undisturbed sequence of 
alternating vortices over an NACA 0012 by Joukowski 
transformation. (From Poling et al [1987] ) 


VORTEX STAENGT = 
CP-ads 2§)5067 


VORTEX sTPENGTHe 300001, 
CP-MAX*e 9014060 


VORTEX STRENGTH: 300003 
CP-ftax= 2$01017 


a @ 8 8 & s 


Figure 5.6 Comparison of vortex models, with vortices passing at a 
large distance from an airfoil. (From Panaras [1987] ) 
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vortices approached the edge and induced high cross flow velocities near the up. In no other regions was 
secondary vorticity introduced. More recently, Park and Lee [1994] utilized a hybrid random vortex 
method (vortex blobs (Chorin [1973] ) and sheets (Chorin [1978] )) to incorporate viscous effects while 
investigating vortex-wedge interactions. 

Various experimental studies of the BVI (Ziada and Rockwell [1982], Rockwell [1983], 
Kaykayoglu and Rockwell [1985], Rockwell et al [1985], and Wilder et al [1990] ) have provided the basis 
for the validation of the different numerical simulations. Despite significant progress in these 
experimental observations, the identification of the separation point or region of vortex eruption remains 
an unresolved area of fundamental research. The abrupt eruption of secondary vorticity is generic, in that 
it occurs in conjunction with a wide variety of geometric configurations (vortex rings (Walker et al [1987], 
Ersoy and Walker [1987], Chu and Falco[1988], and Falco [1991] ), vortex pairs (Ersoy and Walker 
[1985, 1986] ), stationary rectilinear vortices (Walker [1978] ), and convected rectilinear filaments 
(Doligalski and Walker [1984], Doligalski et al [1994])), and also for a wide range of R, =I /(2zv). In 
all these cases, the vortex induces an adverse pressure gradient on the boundary layer. Whether the 
existence of a singularity in the boundary layer equations may be considered to be a precursor to 
separation continues to be a matter of great debate (Elliott et al [1983], Doligalski and Walker [1994}, 
Peridier et al [1991a, 1991b} ). This may in fact not be an appropriate indicator since the solutions for the 
full Navier-Stokes equations do not exhibit singular behavior at separation. lt appears “rather ironic that 
even though the boundary-layer theory has revolutionized fluid dynamics, the phenomenon which gave 
impetus to its inception is associated with its failure” (Sarpkaya [1992] ). Whatever the precise 
mechanism of separation may be, Doligalski and Walker [1984] conclude that the erupted vortical 
structure resulting from “a convected vortex in a uniform flow will eventually interact strongly with the 
outer inviscid flow for any convection speed.” 

Suffice it to say that the eruptive process is a highly unsteady, extremely complex phenomenon 


which has, to date, defied precise analytical and computational solution. As pointed out by Doligalski et 
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al [1994], conventional interacting boundary layer methods can only describe this process for a relatively 
short time. They conclude by stating that what 1s needed is a scheme which can detect the onset of 
eruption and react to focus the computational effort on the eruption region; they suggest a hybnd 
interactive scheme wherein an unsteady boundary layer scheme might be linked to an unsteady Euler 
solver. 

Throughout most of the above-cited works, especially those of an experimental nature, the 
importance of secondary vorticity is readily evident. It is not enough to invoke the zero normal velocity 
criterion; the no-slip condition must also be implemented to make the simulation fully realistic; otherwise, 
the model would be strictly potential in nature. Additionally, all vortices which are introduced (primary. 
secondary, etc.) must be able to distort and diffuse when encountering either another real vortex or their 
image vortices at a solid boundary. Aside from the generation of secondary vorticity to satisfy a Kutta 
condition at a sharp leading edge (Kaya [1992], Kaykayoglu and Kaya [1992] ), the only other treatment 
of the BVI problem to incorporate a boundary layer-like generation of secondary vorticity was by Park and 
Lee [1994], but one of its principal drawbacks 1s the size of the discrete vortex flowfield and the attendant 
computer run-time. The current work will utilize a more classical boundary layer separation technique in 
lieu of a random vortex blob method. It is this creation of secondary vorticity and subsequent distortion of 


vortical structures with which the remainder of this chapter will be concerned. 


C. PROBLEM FORMULATION 


The canonical problem of a rectilinear vortex in the vicinity of a semi-infinite flat plate is one 
which will allow vortex-induced separation to be studied with a minimum of other influences; 
additionally, a free stream parallel to the plate will be imposed, including the limit of zero free stream 
velocity. Referring to Figure 5.7, the following are defined: 

U.. = free stream velocity 
T pnmary = Strength of vortex being convected by free stream. 


a= downstream offset distance (height) of primary vortex centroid above plate. 
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pr- f mary 


Figure 5.7 Boundary layer on a semi-infinite flat plate due to the presence of a line vortex and a free 
stream (not to scale). 





Due to the simplicity of the problem’s geometry, the condition of zero flow normal to the plate 
can be invoked by situating an imaginary vortex of opposite sign at the complex conjugate of its real 
counterpart. The ongin of the coordinate system is situated with its origin at the plate’s leading edge. and 
aligned so that the uniform flow is in the positive x-direction. 

To facilitate presentation of numerical data, nondimensionalization of the relevant equations will 
be based on the maximum velocity seen by the plate at the edge of the boundary layer (i.e., directly 


beneath the primary vortex): 





Wie USS (5.1) 


137 


This accounts for the free stream, the primary vortex, and its image. Using Upiae instead of U.. 
circumvents the singularity which would occur when nondimensionalizing in the absence of a free stream. 


The analysis proceeds in much the same fashion as in Chapter II, with the following nondimensional 
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Additionally, the current analysis will involve approaching vortices of strength [primary = 7 and initial 
height above the plate a= 1.0; this results in nondimensional equations (primes removed for simplicity) 


for potential function and velocity of 
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Following the same procedure utilized in Chapter II, the pressure (nondimensionalized on 


APU ee) at any point on the plate is calculated as follows: 
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where q is the velocity at the point in question, z. 
Because the geometry involves a semi-infinite plate, forces, moments about the leading edge, and 


center of pressure calculations must be evaluated as functions of distance along the plate, x: 
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D. BOUNDARY LAYER SEPARATION 


theory, along with von Karman’s integral momentum equation, allows the use of several methods to 


theory), and may not provide either identical or uniformly consistent results. Whichever method is 
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(5.6) 


(27) 


(5.8) 


The above discussion has shown that various researchers have expended considerable effort and 
computational resources in an effort to predict the point (or region) where vortex separation will occur in 
a boundary layer whose outer velocity profile 1s due to a primary vortex, either alone or in conjunction 
with a free stream. It would appear that the various schemes do not lend themselves well to a series of 
successive separation calculations utilized in conjunction with the introduction of secondary vorticity. 

At any point in time, the velocity distribution will be calculated and the corresponding pressure 


distribution assumed to be impressed on the boundary layer. This fundamental aspect of boundary layer 


predict separation, many of which have been discussed in Chapter II. These methods exhibit varying 


degrees of sensitivity to the external velocity distribution (which will be calculated from potential flow 


utilized, 1t must represent the continuous generation and flux of secondary vorticity into the outer flow by 
introducing, at each timestep, a discrete vortex whose strength and position depend on the interaction of 
the unsteady vorticity distributed throughout the wake on the appropriate boundary layer considerations to 
predict separation. 

The type of separation criterion used (i.e., laminar or turbulent) will determine whether the flow 
is subcritical, critical, or turbulent. In fact, since the DVM becomes more accurate with decreasing shear 
layer thickness, it is reasonable to assume that the results obtained with a laminar separation criterion 
would correspond with moderate to high subcritical Reynolds numbers. 

Fundamental to any integral-momentum method are that the velocity outside the boundary layer 
be given, and that the separation points will either remain stationary or fluctuate with small amplitude and 
velocities about a mean position. Stated differently, it is assumed that the changes 1n the separation points 
and the outer flow may permit the flow to be treated as quasi-steady; alternatively, it may be assumed that 
the contribution of the time-dependent terms in the unsteady velocity distribution are negligible. 

In order to attempt a numerical simulation, a new boundary layer separation prediction scheme 
must be employed, or research must remain restricted to low Reynolds number flows. Consequently, it 
was decided to use the laminar integral-momentum method proposed by Sherman (1990 ) for boundary 
layers on solid surfaces beneath a vortex. Another method proposed by Shetz [1993] was considered, but 
found to rely too strongly on empirical curve fits. A more complete description of Sherman’s method is 
given in Appendix A; briefly described, it employs a coordinate transformation in recasting the boundary 
layer equations, a power (Blasius) series expansion for the horizontal velocity and stream function to 
obtain a first guess starting profile, and then Thwaites’ approximation to the momentum-integral equation 
to generate a differential equation for momentum thickness and various shape factors. The Thomas 
algorithm is used to solve the resulting tridiagonal matrix at each streamwise station for the stream 
function, boundary layer velocity profile, and velocity derivative with respect to streamwise direction, the 
results from one station are used as the input to the next station, with calculations continuing until the 


zero shear stress criterion for separation is achieved. 
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Sherman (1990 ) provided a FORTRAN program NEWBL which calculated boundary layer 
separation on an infinite flat plate under a stationary vortex. In the current work, this procedure was first 
modified to accommodate the separation from a semi-infinite flat plate, utilizing a numencal integration 
technique (Kuo [1972] ) to estimate Thwaites’ integral. Results replicated several data points provided by 
Sherman, as an additional test, exercising the code to the limit of a zero-strength vortex produced the 
Blasius boundary layer velocity profile. At this point, the code was modified to accommodate the free 
stream velocity. A detailed description of the program modifications and the results of a comprehensive 


parametric analysis are presented in Appendix A. 


E. NASCENT VORTEX PLACEMENT 


One of the problems associated with placement of the nascent vortex is that there be no backflow 
generated by the placement of the nascent vortex itself (for a fuller discussion, see Mostafa [1987] or 
Sarpkaya [1989, 1994] ). Consequently, once the separation location and velocity had been determined 
and nascent vortex strength calculated from Equation (3.10 ), the vortex was placed in the flow at an 


angle of 32° from the normal in the downstream position (see Figure 5.8, from Sarpkaya [1989] ). 


F. TIMESTEP SIZE 


A timestep of At = 0.125 was utilized throughout these calculations. A sensitivity study was 
conducted, and, aside from a significant increase in computation time, revealed no appreciable difference 


in the locations of discrete vortices, velocity or pressure distributions, or other calculated values. 


G. CORE GEOMETRY 


Several different core configurations were evaluated: 

e Gaussian vorticity distribution: Poling et al [1988, 1991] utilized a vorticity distribution which 
was claimed to more closely approximate the Gaussian vorticity distribution found in nature. 
Strengths of the component vortices were as follows (see Figure 5.9, taken from Polling et al 


[1991] ): 
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Center Vortex: R,= 0.00 a Oe | 


First Ring: Ry, = 0.10 I, =3 Doane © n= 2-9 
Second Ring: R,= 0.15 To= Vprimay/4 n= 10-21 
Third Ring: Ry = 0.20 LO aot Moerman yo =22-45 


Within each ring, all vortices were of the same size (1.e., in the second ring, all 12 vortices were of 
strength [’,/12). 
e Random vortex strengths and locations: radial and angular locations made in a purely random 
fashion; this tends to concentrate vorticity at the center of the core. A maximum strength of 
T = 0.2 was allowed when assigning vortex strengths in a random fashion. The sum of all 


vortices in the cluster equals I primary = 7. 


e Random vortex locations, equal strengths: all vortices received a random position, as calculated 
above. Assigned strengths were all equal, and were as close to [ = 0.2 without exceeding that 


value. The sum of all vortices in the cluster equals ID prmery = 7. 


e Uniformly random vortex locations, equal strengths: a vortex is assigned a position which is 
uniformly random within a box within which the core radius is inscribed. If the position falls 
within the radius, the vortex 1s assigned that position; 1f not, another attempt is made until a 


random position falls within the radius. Strengths assisgned as in the previous instance. 


The question then arose as to how to choose the core radius within which the cluster vortices 
were placed. When set to a value of ror, = 0.2, regardless of which of the above core distribution schemes 
was chosen, the component vortices would interact on the next timestep and essentially “explode” into a 
cluster of roughly 2-3 times the radius initially specified. By gradually increasing the initial core radius, 
the cluster did not display such radical behavior when a value of f,.,. = 0.4 was reached. 

The scheme espoused by Poling et al [1988, 1991} resulted in minimal vortex distortion as it was 


convected with the secondary vortex and its image, this was due principally to the large strength of the 
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central vortex (one-quarter of the overall strength), about which all vortices in the outer rings would tend 


to orbit. 


The next two vortex core placement schemes resulted in a natural concentration of vortices close 
to the center; there was no significant difference in vortex movement, induced velocities, or pressure 
distributions between the two random placement schemes. Random strength assignment may also lead to 
random straining within the vortex. In general, the random strength scheme resulted in roughly twice as 
many vortices as did the equal strength methods. Based upon this fact (and the consequent reduction in 
computation time), the unnatural core structure maintained in the Poling scheme, and the desire to avoid 
any unnatural concentration of vorticity at the center of the vortical structure, the equal strength/uniformly 


random distribution method was chosen. 


H. DISSIPATION 


From experience gained from working with the DVM in harmonic flow, the most appropriate 
form of dissipation was deemed to be one which was principally a function of vortex age, (Equation 


(3.26), reproduced here): 








-a’R 
A) _ 1 pate) (5.9) 
I, 
=e 
~ oe (5.10) 


where t, is the time at which a vortex was created. After numerous muns, a value of B = 20 was chosen, 
which after 92 timesteps, results in an average diffusion of 0.2% per timestep. All vortices, primary and 


secondary, were subjected to this dissipation. 
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Figure 5.8 Figure on left shows the velocity profile along normal line passing through separation point, 
with nascent vortex on the normal line; figure to the right shows the velocity profile along the normal 
with the nascent vortex placed on a 32 -line. (From Sarpkaya [1989] ) 


Figure 5.9 Geometry of vortex cluster showing corresponding 
Ting radii around which discrete vortices are placed. (From 
Poling [1991] ) 
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I. INDUCED VELOCITY CALCULATIONS 


The Rankine vortex scheme was employed throughout with a core or cutoff radius of 0.075 (see 


Robertson [1965] ), where velocity calculations were conducted according to: 





o <Tospogr: emer ee Da (5.11) 


r2r ; — 


cutoff 2n( 2-2.) (5.12) 


J. WALL ANNIHILATION 


Vortices were removed from the flow when their cores touched the wall (i.e., when a vortex made 
contact with the core of its image); the first 15 vortices were exempted from this criterion to give nascent 
vortices and other vortices in the separation region the chance to convect away from the wall. At any 
time, if a vortex 1s subjected to high induced velocities and convected to a position ahead of the separation 
point, it is removed from the flow; were this not done, premature boundary layer separation (as noted in 


Chapter III], Figures 3.1 and 3.2) would result. 


K. VORTEX COMBINATION 


Vortices were combined when their cores touched, and only if they were of like sign, using 


Equations (3.21) and (3.22). 


L. POTENTIAL FLOW BASELINE RUNS 


Prior to incorporating viscous effects, a series of purely potential flow baseline runs was 
conducted. A single rectilinear vortex was introduced at (-2, 1), split into a cluster of equal-strength, 
randomly-located discrete vortices within a circle of radius 0.4, and allowed to convect under the 
influence of the real and imaginary vortices and the free stream (when U,, + 0). A representative run is 
shown in Figure 5.10 for U,. = 1 (i.e., B = % ), and for comparison, the same mun without decomposing the 
vortex (Figure 5.11). In fact, there is no significant difference between the two runs, with the exception 


that the velocity and pressure curve peaks are slightly more pronounced for the run with only a single 


vortex; this 1s in agreement with the qualitative results of Panaras [1987, 1990]. As anticipated from 
potential theory, the vortex (single or cluster) proceeds with no change in height above the plate. The plot 
of induced velocity on the plate shows a value of { far upstream and downstream of the current vortex 
position, where a maximum value of 1+f is seen at a position immediately beneath the vortex. 
Qualitatively, the other runs exhibited the same shape pressure and velocity curves, with the only 
difference being that the curves will be closer to the x-axis for lower values of 8. Additionally, the lift 


coefficient and center of pressure plot essentially as linear functions of x. 


M. U..= 6 =0: VISCOUS EFFECTS INCORPORATED 


In this case, the vortex moves as a consequence only of its image, and lingers over each portion 
of the plate longer than for situations where a free stream is included; consequently, it is anticipated that 
viscous effects will be most pronounced for this case. As a further example of the difference between the 
two methods of representing the primary vortex, examples are shown of a single primary discrete vortex 
(Figure 5.12 ) and a cluster representation of the primary vortex (Figure 5.13 ). In both cases, since the 
entire flow field results solely from the primary vortex and its image, boundary layer separation occurs 
immediately upon starting the calculations, even with the primary vortex at a relatively distant upstream 
position of (-2, 1)' ; a discrete vortex is then introduced at each timestep, and the separation point 
(marked “s”) begins to move towards the leading edge. The array of secondary vortices hugs the wall, and 
begins to build; maximum discrete vortex size occurs as the primary vortex overtakes the separation point, 
and the shed vortices begin to roll up into a vortical structure. When the primary vortex has proceeded 
sufficiently downstream and the separation velocity has fallen below a cutoff value, discrete vortices are 
no longer produced, the boundary layer calculation is bypassed, and the vortices begin to convect away 
from the viscous region of the wall in an almost purely potential fashion. From this point on, the only 
viscous effect is the diffusion associated with vortex age (Equations (5.9) and (5.10)). Continuing to 
ln fact. by Contmenciaeaeeann aeons more remote upstream position, boundary layer separation did not begin 


until the primary vortex centroid reached a horizontal position of x = -2.97; then, however, the nascent vortex 
strength was so small as not to warrant incorporation into the flow. 
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introduce vorticity beyond a certain point results in numerous recently-shed vortices which, after the 
passage of the pnmary vortex, tend to “hug” the plate since they are influenced primarily by their own 
images (and when U,, + 0, the free stream, as well ). A sensitivity analysis was undertaken to determine 
the most appropnate cutoff point without affecting the kinematics of the pnmary and secondary vortices, 
and was found to be when the separation velocity had fallen to a valuc of U;.p = 0.4+$. An additional 
consideration for cutting off discrete vortex production at this point was to minimize computation time: 
this cutoff criterion was employed for all mins in the current analysis (0 < U.< 5). 

Comparing the summary plots (Figures 5.12 and 5.13 ), there is no appreciable difference in 
vortex strengths. In both instances, the immediate effect is for the primary/secondary vortices to convect 
away from the plate (and the influence of their images). As can be seen from the sequence of vortex 
position plots for the single vortex case (Figure 5.12 ), the inability of the primary vortex to distort and 
strain and the consequent concentration of vorticity at one point eventually results in the secondary vortex 
orbiting about an essentially stationary primary vortex. Even though the cluster representation allows the 
primary vortex to deform, this orbiting effect is still prevalent, although to a lesser extent. Harvey and 
Perry [1971] noted that this spiraling effect was not observed during their experiments, which would 
confirm their statement (reiterated by Doligalski et al [1994] ) that the primary vortex spawns a secondary 
vortex of roughly the same magnitude. In fact, the current analysis shows that, for either single or cluster 
representation of the primary vortes, its magnitude is roughly twice that of the secondary vortex; although 
a certain amount of vorticity 1s lost to diffusion, the step reduction in the I... curves of Figures 5.12 and 
5.13 lead to the conclusion that too much vorticity is lost to boundary annihilation. Were the primary and 
secondary vortices of similar magnitude, they would convect one another away from the plate at some 
angle, rather than undergoing the orbiting motion depicted herein. In any event, the motion of the 
primary vortex is radically altered from the purely potential case where the primary vortex and its image 
would maintain a constant separation as they moved to the nght at constant velocity (see, e.g., Milne- 


Thomson [1968] ). 
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Due to the offsetting effect of the primary and secondary vortices, the forces and velocities on the 


plate are very small, and the center of pressure plots are highly erratic. 


N. 0<U.<1(0<B<%): VISCOUS EFFECTS INCORPORATED 


For these “intermediate” speeds, the primary vortex begins to experience the effect of a free 
stream, and is not allowed to remain over any section of the plate for an appreciable ttme. Although the 
case of a single discrete vortex representation is not shown here, more severe orbiting was experienced 
than with a cluster representation due to the higher concentration of vorticity. All cases shown will be for 
cluster representation of the primary vortex, and include runs for free stream values of U.. = 4 (Figure 
5.14), U. = % (Figure 5.15 ), and U..= 1 (Figure 5.16 ). Here, the free stream is the predominant 
contribution to the boundary layer outer velocity when the primary vortex is far upstream (in the vicinity 
of (-2, 1)); consequently, boundary layer separation does not initially occur until the primary vortex is 
closer to the leading edge (x = -1.71 for U..= 4%, and x =-1.35 for U.. = 1.) For U. = '% , however, 
separation begins with the primary vortex centroid at x = -2.’ 

Even though the primary vortex was resident in the vicinity of the plate for shorter times 
(compared to the case of U,, = 0), secondary vortex strength was still roughly half the magnitude of the 
primary vortex because the free stream velocity is a major contributor to the separation velocity, used in 
Equation (3.10) to calculate nascent vortex strength. It is interesting to note that this is the same case for 
all velocities considered in this intermediate speed range. The net effect of the secondary vortex, in 
conjunction with the free stream, was to move the primary vortex away from the plate. 

Whereas the plots of lift coefficient and center of pressure for the purely potential case were 
essentially linear functions of x, the effect of secondary vorticity was to negate the effect of the primary 
vortex in the force and moment integration in the region directly beneath the primary-secondary vortex 
pair. The effect of these vortices on the velocity and pressure distributions upstream or downstream of the 
? As was done for the case of U. = 0, placement of the primary vortex at an even more remote upstream position 


resulted in boundary layer separation commencing when the primary vortex centroid reached a horizontal position 
of x = -2.17. 
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pair was negligible, since to a certain extent, they offset each other, and also since they produce velocities 
on the plate which had no (or minimal) x-component. This resulted in a flattening of the plot of the 

location of the center of pressure directly beneath the vortex pair, which would indicate that the center of 
pressure remained the same when the force and moment integrations ended anywhere beneath the vortex 


pair. The flat portion of the center of pressure plot was wider and more pronounced at lower values of U.. 


O. U..> 1(B > %): VISCOUS EFFECTS INCORPORATED 


For the sake of categorization, these will be referred to as “high speed” flows, since the 
predominant effect is that of the free stream; the contribution of the vortices becomes smaller and smaller 
with increasing U,.. Two cases are presented: U,, = 2 (B = 2/3) (Figure 5.17 ) and U,, = 5 (f = 5/6) 
(Figure 5.18 ). 

Boundary layer separation commences with the primary vortex at x = -1.09 for U,. = 2, and at x = 
-).93 for U.. =5. The primary vortex spends substantially less time over each portion of the plate, so that 
the viscous response of the boundary layer is not given a chance to develop. In essence, the response 1s 
the same as if a purely potential calculation were being conducted: very little vorticity is shed, so that the 
primary vortex 1s influenced principally by its image and the free stream, and maintains essentiallv 
constant vertical position and horizontal convection speed. This is also borne out by the linear 
relationships of lift coefficient and center of pressure with the x-coordinate. Here, the secondary vortex 
grows to a magnitude of roughly one-half that of the primary vortex for U,, = 2 (B = 2/3), and one-third 
the primary vortex strength for U.=5 (f = 5/6); these vortices are not allowed, however, to form a 
roughly circular cluster before the primary vortex moves downstream. These results agree with those of 
several researchers working in the subsonic/transonic regime (Srinivasan [1985], Lee and Smith [1991] ), 


who conclude that viscous effects are negligible. 


P. CONCLUDING REMARKS 


Although a steady flow, laminar boundary layer separation criterion has been used in the 


simulation of a highly unsteady physical process, the qualitative results are most encouraging. The 
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overall effect of vortex eruption seen in the experiments of Harvey and Perry [1971] are produced, and 
secondary vortex strengths of the same order as the primary vortex result. For B < 4, the secondary 
vorticity is formed relatively early in the passage of the primary vortex over the plate, with consequent 
alteration of the trajectory of the primary vortex up and away from the plate; with higher free stream 
convection velocities, the amount of orbiting of the secondary vortex about the primary is lessened. 
Additionally, the secondary vortex appears to be at least half the size of the secondary, and this appears to 
be the reason for the orbiting of the vortices; although vortex diffusion has been incorporated into the 
model, the reason for the smaller size of the secondary vortex is attributed to wall annihilation when a 
vortex core touches that of its image. For B > 4, secondary vortex effects are minimal, with smaller and 
smaller secondary vortices convected downstream; 1n other words, viscous effects become less 


predominant with higher free stream velocities. 
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Figure 5.10 Potential flow with no discretization of primary vortex: Us 
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Figure 5.10 (con’t) Potential flow with no discretization of primary vortex: 
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.10 (con’t.) Potential flow with no discretization of pnmary vortex: 


Figure 5 
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Figure 5. 


154 


(LHYOA. das») eae ee ae 
d35 1 «Qgl—--—-—-—- 


NNWININ 
ogegagea a 2A QO ‘@t=dS108 oocgges a = BF 
Qeeeroo @ aN, O9SGL00 gaa gag -r=3"'A 
a 5 a Oi I a aGgodaO ‘a="TMy WOSISTI “B=3V 


‘PPZIYPPAHPSIQ KPVHOA Knows Hag YLM MO] 4 1 EP[zURLCY_ 
UPST -SWIL POoOIOIGT -3LVA £60 ‘Y3SeANNN Nd 





- 


marv vortex discretized: U, 


Figure 5.11 Potential flow with pn 


155 


Pe=3.141 Ta=8. GOB 


3 4 5 6 
T=8. G@26B NT=2 


Te=3.141 Ta=8. COB 


3 4 5 6 
T=2. GIBB NT=16 


Pe=3. 141 Ta=8. 806 


3 4 5 6 
T=1. @368 NT=B 


[423.141 Ta=8. 806 


3 4 § 6 
T=3,. 368 NT=24 





1.0. 


—— 


.11 (con’t.) Potential flow with primary vortex discretized: U 


5 


Figure 


156 


@S=Lt 6004 “4£=1 
9 = ¢ 


G08 8=98f Trl €=*I 


Q@V=1N 8000 G=1 
DG .5V Be 


G00 8=3F Tet es*d 


SV=LN 8000 G=l1 
9 SG FY 


020 8-81 I7l t=*l 


CL=LN BOO V21 
9 GS FF F¢ 


000 8-81 It t24d 





ae. 


« 


mary vortex discretized: U 


Figure 5.11(con’t.) Potential flow with pn 


157 


Te=3. 141 Ta=8. BOD 


3 4 5 6 
T=B. Q2OB NT=64 


Te=3. 141 Toa=@. COO 


3. 4 8 6 
T=1%. GOBGNT =EBS 


Te23. 141 


reed. 141 


ra=8. 086 


ra=8. BOG 





1.0. 


x discretized: U. 


5.11(con’t.) Potential flow with primary vorte 


Figure 


158 


~ 
~ ewe ewe ew @FZz=ekwg ewe ws ew eX ew Bx ew ww ew we @ 


wee ome a 


—_A 2 
So a Oo > 
_o™e 









CTI=LN@GOO FT=L 
9 G bv F& 










G00 6-9] IVI Ek 


~~ "ee we we * = Feeweeweeeseee ewe®eeaz = -~eoiweu5woew % 7% BP eweeeaw a «= 


nos = 2 ted = —_ « 


= = e 
< oo - B _—_ 
_—_— - 
s 


oe Salem O70, e ere,» 67078 OS) eerers 
aay © Ose.) aad ate Oe A Ge TT CSCS, Skeeter CSG lr Wee ee Rt 0 a hg me, Me wate eke 8,8 
. . 
e?* ae 
e? 
e 






FOT=LN@OOO Cl=lL 
: aa es 






96=LNOGDO cel 
ESS Pe Ee ET 





O28 6-91 THI €=*d GO0 8-91 II =*d 









1.0. 


Figure 5.11(con’t.) Potential flow with primary vortex discretized: U. 


159 


6 
S 
4 
3 
2 
1 
a) 
1 


RUN NUMBER: @94 DATE: 19181994 TIME: 
No Dlscretizatlon of Primary Vortex. 
At=O. 12560608 RuIn=S. BOSGAB 
U yp =O. COO Roore 7B. BO7560 
= ©. GBOGGGB0 BDISP=26. 0G 


a = ener —-106* Ysep 
— (Xsep7 Xvort? 


J 
r 


r 


924 


INCIDENT 


3. 14159 


wint & BO1GGWB 


NASCENT 
MINIMUN 


GB. Bi BA600 
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Figure 5.13 Viscous flow with primary vortex:discreuzed U,, = 0. 
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Figure 5.15 Viscous flow with primary vortex:discretized U,, = 0.50. 
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Figure 5.15 (con’t.) Viscous flow with primary vortex:discretized U,, = 0.50. 
172 





Pe 
—-_ — ee — * 
“+ ome 





V9=1N OOCY A=1 
2. o> taf 


RV=1N G0G0 “9=1 
i. 9 2G a a 


B6S T-=81 6c C=*J 





6 






WW 


io @ S Ff ££ 


£9G T-=8f 196 G=*d 


OV=1N C0OOO GS-1 
LiL» ¥9 S Ff € 


WG T-=8. ved b=*l 








¢ 








Fel Up 


marv vortex:discretized U 


Figure 5.15 (con’t.) Viscous flow with pn 


173 











3.4 5 
T=9. G26 





6 7 
NT =72 


ee 
Oe O80 8 66.0 0 06 Cie 


oo ™w~ © oe ee OS 


T+22.716 YToe=-1. 158 





5S 48 5" 607 
T=18. QBBGNT =BS 





T+=2.548 Ye=-1. 115 


50. 


Figure 5.15 (con't.) Viscous flow with primary vortex:discretized U.. = 0. 
174 


BCT=LNOGOO 3TI 


TOO T-=81 


TVG G= 


CTT=LN@EOO I 


i 


“J 


=1 


ca@ T-=8. 88t “G=*d 


GEO 


POt=LNQBVO GI= 


T-=8l EC” 


st 


VOI2LNOGOO cl 


S$ 


Vy 


1 
c 


J 


L 
© 





G60 T-=8J L997 “G=*l 


Figure 5.15 (con’t.) Viscous flow with primary vortex:discretized U. = 0.50. 
175 






RUN NUMBER: @98 DATE: 12181994 


Primery Vortex Discreti zed. 


TIME: 2128 









At=8. 1250600 Ruin=S. DAGSSOB VP incroent= 3- 14159 

Ui e=i. C2 Roore=8. BB756O Puin= GS. 018600 

f£ = B. 5008623 BDISP=28. a6 Duascent> 9: 9566250 
MINIMUN 





7) 





MS @ bh 


eo ™= + ame 





ey —-122@*Ycsep ae 
pate ass: — &sep7 Xvort) 
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Figure 5.18 (con’t.) Viscous flow with primary vortex: discretized U.. = 5.0. 
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VI. CONCLUSIONS 


This chapter will synopsize the concluding remarks on harmonic flow (Chapter IV) and blade- 
vortex interaction (Chapter V), and will suggest areas for further work. 

A brief review of the literature has pointed out the strengths and shortcomings of both the finite 
difference and discrete vortex methods in the solution of unsteady flow problems. Two-dimensional finite 
difference codes are most appropriate for low Reynolds number flows, but computational constraints, 
stability problems, and implementation of boundary conditions and artificial viscosity are but a few 
problems which limit its effectiveness in the analysis of many situations of practical interest. Although 
the discrete vortex method has been shown to avoid many of these problems, it is not without its own: 
separation point prediction and the consequent introduction of vorticity, computer time required for 
convection of the vortices, and the requirements for artificial dissipation. 

The discrete vortex method in the harmonic flow application is fraught with difficulties, chief of 
which is the determination of separation points on bluff bodies. Several boundary layer criteria and ad 
hoc methods all failed to reproduce the vortex kinematics observed experimentally. It was found that 
countervorticity was a requirement for the smooth transition in in-line force from one half cycle to the 
next. Although the model predicted the in-line force reasonably well, the lift force was not in agreement 
with experimental data. Complex flow instabilities, spanwise coherence, and a host of other problems 
render high Reynolds number harmonic flow difficult to analyze by any computational method. 

At this point, 1t was realized that the interaction of a vortex with a boundary layer warranted 
analysis in a much simpler flow situation; the blade-vortex interaction problem proved to be ideal. A 
boundary layer code which predicted separation on an infinite flat plate under the influence of a line 
vortex (Sherman [1990]) was adapted to the BVI problem, so that it could be used with a semi-infinite 
plate in a flow field comprised of a free stream and numerous discrete vortices. Although data are not 
readily available for the comparison of force and moment data on a semi-infinite flat plate, the kinematics 


resulting from the interaction of the primary vortex and the shed vorticity are most encouraging. The 
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kinematics and approximate strengths of the shed vortices are in agreement with the observations of 
several researchers. 

Having, illustrated the importance of secondary vorticity and cluster representation of vortical 
structures, several other areas warrant additional research: 


e different boundary layer separation prediction methods. 

e effect of different vortex core structure geometries and sizes. 

e effect of primary vortices of opposite sense (1.e., clockwise rotation). 

e implementation of arrays of approaching primary vortices. 

e different surface geometries (finite flat plate, airfoils, etc.) at a variety of angles of attack. 
e investigation of direct vortex impingement and subsequent splitting. 


It is hoped that by conducting additional work on the BVI, sufficient insight will be gained to 
provide inroads to the case of harmonic flow about circular cylinders. As with every successful and 
meaningful implementation of the discrete vortex model, it will have to be tailored for its specific 


application, taking into account unique aspects of the flow while making a minimum of assumptions. 
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APPENDIX A. VORTEX-DRIVEN BOUNDARY LAYERS 
A. INTRODUCTION 

The details of the algorithm utilized to predict boundary layer separation in the blade-vortex 
interaction analyzed in Chapter V are adapted from Sherman [1990]. The FORTRAN code for the basic 
problem of boundary layer separation on an infinite plate under a stationary vortex 1s presented 1n 
Appendix B of Sherman [1990], and is based on the material presented in Chapters 10 and 12 of the text; 
the basic differences which are required to modify the procedure for a semi-infinite flat plate are presented 
in Chapter 12 of his text, along with the results, but no modifications to the FORTRAN code are provided. 
After modifying the code and verifying its ability to replicate Sherman’s tabulated results for a semi- 
infinite plate, the current analysis incorporates modifications for a vortex moving in a free stream above a 
semi-infinite flat plate; additionally, a numerical integration technique is utilized to facilitate the 
evaluation of Thwaites’ integral when a field of many vortices is present above the plate. The details of 


this procedure are presented herein, and a listing of the FORTRAN code is contained in Appendix B. 


B. CLOSED FORM SOLUTION FOR SELF-SIMILAR BOUNDARY LAYERS 


The simplest treatment of the problem of a vortex-driven boundary layer begins with the x- 
momentum equation and the continuity equation: 
u,, +uu,, +VU,, +p,, = VU,,, (A.1) 
U,,+V,y = 0 (A.2) 
Thwaites [1949] related the tangential pressure gradient in the boundary layer to the tangential speed of 
the external potential flow by the Euler equation 
p= {U, +UU,,) AD 
and introduced it into the x-momentum equation to obtain 
(A.4) 


u,, +uu,, +VU,, =(U,+UU, = Vu 
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Multiplying the continuity equation by u-U, adding it to Equation (A.4), and then integrating from y = 0 
to y = co (with the assumption that u-U — 0 and u,,, — 0 quickly enough to allow all integrals to possess 


finite values), Thwaites obtained 


(us"),, +(e), +UU,, 3° =—. (A.5) 
p 


Here, the following definitions are germane: 


momentum thickness: 69= pegs (A.6) 
U U 
0 
displacement thickness: §° = [-4)e (A.7) 
0 
skin friction: Tt, =HU,, (x,0) (A.8) 


The dimensionless shape factors H = 5°/6 and T = ,,8/uU do not depend on the thickness of the boundary 
layer, but rather on the shape of the boundary layer velocity profile. In the most general sense, they are 


functions of x and t; for the current analysis, 0/Ot = 0 and v,,= 0, so that Equation (A.5) becomes 


= 7 | (24H)U (| elo 9 
7S Thins x{—|-T |=0. (A.9) 


Were H and T constant, this last equation would be easily integrable, and the analysis would be restricted 
to boundary layer velocity profiles of constant shape, thus precluding many situations of practical interest. 
Several researchers noticed, however, that H and T are almost entirely dependent upon the dimensionless 
quantity 4= U,, 67 /v. Specifically, Thwaites [1949] noticed that 

2T-2(H +2)A=0.45-6.02 (A.10) 


so that Equation (A.9) becomes 


@ 0.45~6U,, (07 /v) 
= re (A.11) 


Vv 
X 
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6 X 
2 \ PP 
3) OO) _ | U(x) i 0.45 f(a] ae (A.12) 
Vv U(x) U(x) U(x) ; 
Xo 
Here, x, is the upstream starting value of x, x’ is a dummy variable of integration, and C 1s a constant of 
integration. 


For the case of a stationary rectilinear vortex of strength I’ at a distance a above an infinite flat 


plate (see Figure A.1 ), we have 


ie LR es 
“R(se)' >a (A.13) 


The boundary layer starts at x = —co where U(x) = 0, so that C = 0 and, therefore, only the second term of 


Equation (A.12) 1s required. If a reference velocity of U, = I'/ra is defined, then we have 





Uy 
u(é) = ne (A. 14) 
eee pee 
ae (1+e2)° 3 (A.15) 


Equation (A.12) then becomes 


87U, 045 


= - 945 4.422)" a79+su1e + 385E* +105E° (22 Jase) {arcenes J (A.16) 





— . t E i eee ( a ] ) 


Additionally, the parameter A becomes 


Ne 290 el 279451 1&? + 385E* + 105E° (2 Jin+e?)*{ acta ) (A.18) 


and for the region far upstream (& << -1) 


es 
1=0100) 1--L + (A.19) 
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Figure A.1 Boundary layer on an infinite flat plate under the influence of a stationary line vortex 
(not to scale). 





Directly beneath the vortex (& = 0), we have 8°U, /va = 0.194; Onin is reached at E = -0.429, 
where U(E = 0.845 U(0). Most importantly, separation occurs at Esep = 0.157, where U(E ) = 0.976 U(0)’. 
We have thus arrived at a first estimate at predicting, separation, albeit beneath a stationary vortex over an 


infinite flat plate, with the relatively crude assumption of a self-similar boundary layer velocity profile. 


C. NUMERICAL SOLUTION OF NONSIMILAR BOUNDARY LAYERS OVER 
AN INFINITE FLAT PLATE 


This section will describe the numerical technique employed by Sherman [1990] to allow for 


nonsimilar boundary layer velocity profiles; the following sections will then concern themselves with the 


' Utilizing curve fits, White[1986] showed that shear stress disappears for 4 = -0.09, which is the cirterion for 
predicting separation. 
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modifications required to analyze semi-infinite flat plates. Finally, a free stream and multiple vortices are 
introduced, and the code validation 1s described. 

Beginning with the boundary-layer equations (Equations (A.1) and (A.2)), we introduce 
dimensionless, scaled variables § = & (x) and n = n(x, y ) = y/g (x ), where g (x) 1s a measure of local 


boundary layer thickness. Also of use is the definition of a scaled, dimensionless stream function f (& , n), 
Y (x,y) = Q(x) fn) (A.20) 


where Q(x ) = U(x ) g (x ) may be likened to the flow in the boundary layer at a particular streamwise 
station at x. We now use an asterisk to denote physical velocity components (primes connote derivatives 


with respect to x, except that f' = f,,, ): 





u = Uf’ (A.21) 
v= -Ug| f., E+ f'n, +(1nQ) F| (A.22) 
u, =U + f'n, | +f U (A.23) 
mele 
U,y = (A.24) 
g 
Ue 
Us = aa (A.25) 
g 


Substituting Equations (A.21) through (A.25) into Equation (A.1), the steady form of the x-momentum 


equation becomes 
u"+y ()u’ f +8(EX1-u") = yw) wu.—u'f | (A.26) 
where the €-dependent coefficients are defined as 


21 ; 21) : 2uU 
>= (inQ) §= 2—(inv) y=" 


Vv Vv Vv 











y= 4 (A.27) 


We note here that y is proportional to the percentage rate of increase of the nominal flowrate in the 


boundary layer, and 6 is proportional to the percentage rate of increase of U. Note also that w is not the 


same as the stream function, ‘¥. Finally, Equation (A.26) is subject to the following boundary conditions: 
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no slip: u(§,0)=0 
matching (outer) potential flow. u(§,0)=1 (A.28) 


impermeable wall: £(§,0)= 0. 

Having transformed the boundary layer equations through this change of variables, it is now a 
matter of choosing, the most appropriate forms for €& and n. Before the advent of computers, the choice of 
— and yn usually was made to show that two apparently different boundary layer problems could be 
transformed into the same mathematical formulation. With the rise of finite difference techniques, the 
impetus turned to transformations which retained the boundary layer’s natural growth; the computer was 
then left to account for minor changes in the boundary layer velocity profiles. To balance programming, 
considerations and accurate boundary layer velocity profile portrayal, Sherman [1990] chose to set g 


proportional to boundary layer thickness and & proportional to streamwise distance, x: 
g(x) = A(x) Ex) =— (A.29) 
a 


The choice of the constant A determines the range of n which will be considered by the computer code. 
The solution is iterative, and will begin with an initial profile which corresponds to a self-similar solution; 
it will, therefore, be most convenient to use the value of A which will give give the coefficients y and 5 
initial values which will make the initial profile numerically identical to the self-similar solution. 


Using Thwaites’ approximation (Equations (A.10) and (A.11)), we obtain 


2 2 _ 2 ’ 
ts _ 045A? -6(87 UE Aen 
v U 


which can be used in conjunction with Equations (A.27) to obtain 


Si =A? y = 0225 A* -28 (A.31) 





For self-similar boundary layers, u (€ , 1) would reduce to a function of n alone, and both y and 6 


would be independent of x. The initial velocity profile chosen to begin the numerical procedure should be 
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identical to the solution of the ordinary differential equation obtained when the nght hand side of 
Equation (A.26) 1s set equal to zero. A somewhat incorrect initial profile may be tolerated, however, if the 
calculations are commenced sufficiently far upstream, and the outer flow is an accelerating, potential flow 
which allows the initial conditions to be forgotten. 

The more general case of Falkner-Skan flows involves boundary layers which begin at x = 0 and 
grow continuously thereafter, so that Q is monotonically increasing with x, andy is positive. Recall that 
the arbitrary constant, A, was involved in the definition of the function g (x) to adjust the range of n- 
values used in the boundary layer calculations, from Equations (A.27), it can be seen that the choice of A 
directly influences the values of y, 5, and w. It will turn out that it is most convenient to choose A so that 
y=1. The shape of the boundary layer velocity profile is determined by the ratio of y to 5, which is found 


to be 


Bl: apa (A.32) 





For the Falkner-Skan family, we also have 
U(x) «x™ g(x) a x'i-m)/2 (A.33) 
which, if y is set equal to unity, results in 


2m 


~ l+m 





(A.34) 
The classic case of the Blasius boundary layer on a flat plate is obtained from this last set of equations if 
m is set equal to 0, resulting in 5 = 0 and y= 1. 

The vortex-driven boundary layer, however, is born at x = —oo, and begins to ingest fluid with 
increasing x, so that y is positive. The boundary layer is only asymptotically self-similar, in the region 
where (-x/a) >> 1, so that (in U)’ = -2/& and (In Q)’ = -1/2E. Again, choosing A such that y = | results in 
a value of 5=4. In fact, although its physical ongins are different, the vortex-driven boundary layer is 


mathematically a member of the Falkner-Skan family. 
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Returning to the nonsimilar boundary layer, we recall that, at large negative values of x, the 
shape-determining, factor 4 = U,,6’/v approaches a constant value in the integral-momentum analysis. It 
is, therefore, reasonable to expect that a Falkner-Skan type profile can be used as a close approximation to 
the boundary layer at large, but finite values of x, with y= 1 and 5=4. To confirm this, a power-series 
expansion will be employed to prove that the calculations may commence with a similarity solution. 
Recalling the series expansion for A at far upstream conditions (Equation (A.19)) and choosing Ag—aul 


we find that Equations (A.27 ) become 
= -_— ae == —=> a =_— — a +... A.35 
5=4 Tie + y I+ § + w=-2E n°? ( ) 


It is seen that at far upstream conditions, the values of y and 6 approach constant values (a necessary 
condition for the existence of a self-similar solution), but y — oo. It is, therefore, necessary to show that 
the right hand side of Equation (A.26 ) vanishes as & — -oo, so that it will be permissible to solve ordinary 
differential equations in calculating starting profiles of f and u. 

To this end, a Blasius (power) series expansion (see Schlichting [1968] ) will be assumed to 


represent f and u 


fE.n)=fo(n)+f, e+... 
(A.36) 


u(En)= uy (N)+u, (HE +... 


so that 


f,,=-2f, (e+... 
(A.37) 


u,.=-2u,( Wes a 
Inserting Equations (A.35) through (A.37) into Equation (A.26), and evaluating the resulting expression 
in the limit of § — —co, the result obtained is precisely that for the self-similar solution (e.g., Equation 


(A.26) with the nght hand side set equal to zero): 
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ug + fous +4(1-u2)=0 fy = Uy 
subject to (A.38) 
f, (0) =0 u,(0)=90 U, (00) = 1. 
Next, we investigate the terms which are coefficients of &*, which results in the boundary value 


problem 


8 4 5 fp =Uy 
uj +f ou, —l2u,u,+5uof, Se yieons +7 (1-u5) 


subject to (A.39) 
f,(0)=0 u, (0) =0 u, (00) = 0. 

The Biasius series representation has led to a well-defined series of boundary value problems 
(Equations (A.38) and (A.39)), so that it would appear that this will be useful. It is assumed that the two- 
term solution resulting from these equations will provide a reasonable degree of accuracy when a Starting, 
value of, say, & =-10 is chosen to begin the calculations. 

What is required next 1s a scheme which can be used to represent uz (& ,n ) and fz (& ,n ) for 
boundary layers which develop in a decelerating potential outer flow, and which are, therefore, 
exceedingly sensitive to their upstream histories. A second-order formula which lends itself to easy 
implementation with the above linearization process is the three-point trailing difference formula of the 
form 

ue (§,n) = au(g,n)+ bu(§—dé),n) + cu(§—d5) —d§> ,n) (A.40) 
For upstream calculations, a constant value of d& may be utilized, so that (a, b, c) = (3, -4, 1)/2dE. As the 
calculations near the separation point, d& is successively halved, so that d&, = '2d& , and (a, b, c) = 
(8, -9, 1)/6dE). 
The nght-hand side of Equation (A.26) also requires linearization. We begin by noting that 


u=u' +(u-u ) (A41) 


fat thet): 
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where the asterisked quantities denote approximate values. When squaring these last two equations and 


dropping higher order terms, we obtain 

u- = 2uu—u- 
v2 =2vw — ia 
Using, these, the following components of Equation (A.26) are obtained: 

uu,, = ué,n)|2au” E,n) + bu(E- dé, ,n) + cue - dé, — dé, -)]- au” En) 
uf s—u"f” + fu’ + fou’ 
u'f,, = u'(E, maf” En) + bf(E—dE, ,n) + cf(E- dé, — dé, 1] 
tau” (E,nf(E,n)—au” (nf (E,n) 
8(1—u2) x8(1+u")—28u"u 


Inserting all of these into Equation (A.26) results in 


u"+ u’lyf" +w(af” +bf~ +cf~)}]+u|-25u" — y(2au" + bu™ +ceu-)|+f[u’y+ uy = 


~8(l+u"’)+yulf” —ayu”’ + waf"u” 


where the following shorthand has been employed: 


u =u(§-dé,,n) f =f(€-dé,,.0 
u’ = u(G—- dé, — dé, ,n) f" = f(§- dé, — d&, ,n). 
Equation (A.47) is of the form 


u’+u'r, + us, + fw, =t, 
where 
r,=yf +waf +bf” +cf*) 
s, =—25u — y(2an" + bu + cu") 


w, =u’ (y+ay) 
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(A.42) 


(A.43) 


(A.44) 


(A.45) 


(A.46) 


(A.47) 


(A.48) 


(A.49) 


(A.50) 


(A.51) 


(A.52) 


t, =yu"f’ —S(l+u")+wa(u"’f’ —u"’) (A.53) 
and the following, boundary conditions apply: 
u(0) = 0 u(oo) = | f{(0)=0. (A.54) 
In conjunction with f =u, we now have a pair of coupled equations which may be solved numerically. 
With central differences, the first of these two (Equation (A.49)) becomes 


Un41 —2u, +U,_) Uns) — Up-1 
h2 +I, oh +S,U, + Ws =t, (A.55) 


1 fn 2 oer - 
Un] 72 2h +U,, oo: ue -2* Oh +f,_ jl +f,[w,]+fy al J=t, (A.56) 


Au Bi Cn Ai Bi Cy D; 


and the second equation becomes 


u—f’=0 (A.57) 
U,-1 a8 U, 2 ie ae i, - 0 (A.58) 
2 h 
1 1 1 1 
vel 3 ft sf teal fol § fol —j fetta 0 ii 


An Boi Cr Ax Bn Cz D, 
Here, h= An. Also, central differences were not used in the finite difference representation of the second 
equation since that would have involved a term f,+; , which, at the outer limit of the boundary layer, is not 
known. 
These two finite difference equations are of the form 
Ay, +BY, +C¥,,, =D, (A.60) 


where A, B, and C are 2 x 2 coefficient matrices, and the y; are two-element column vectors: 


we A” ‘al ‘ “jr 
Ay, Ax : eS oo” 


These equations can be solved with the tnangularization and back-substitution of the Thomas algorithm 


(see, e.g., Gerrard [1978] ). A back-substitution formula of the form 
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ye - ey atl a F, (A.62) 
will be employed; when this is written for y,_, and inserted into Equation (A.60), we obtain 


(ACE it Bi ¥ocmeoy ren (D, a AF » (A.63) 
Next, Equation (A.62) is multiplied by (A, E,.;+ B, ), resulting in 
(AJE n+ Bg )¥n =(AgEs-1 + By EnV nei + (AnE a + By Fy. (A.64) 

Comparing, Equations (A.63) and (A.64), the E, and F are obtained by equating, like terms: 

(A,E,1+B,)E, =—C, (AGE Bf =D) Ace (A.65) 
If the order of the coefficient matrix were two or three, Cramer’s Rule could be utilized. For more 
realistic problems where many stations are utilized across the boundary layer velocity profile, a Gauss- 
Jordan matrix inversion routine 1s more expedient. In fact, 81 stations were found to be the minimum 
number of stations across the boundary layer required to maintain reasonable accuracy. Let G = A, E,.; + 
B, so that Equation (A.65) may be recast as 


E,= -G"'C, F = GD, -- A_F_.,). (A.66) 


Here, G has four components, and the components of G” are 


Gr! mo G., Gz -Gy 
= 
G,,G,, _ G}.G,, . G,,Gy 7 G,»Gy, 
(A.67) 
Ge -G,, Grea G,, 
"9 G,,G,, GG, ” G,,Gy Gy»G,, 


Note that the second column of E, will always be zero since Cp = Cy = 0. 


For the triangularization of the matrix, iteration begins by setting, 


0 0 . 40 
Telly G ae Fi=1o (A.68) 


to satisfy the boundary conditions u = f= 0 at the wall. The calculations continue across the boundary 
layer until a suitably large value of n= is reached, at which it is assumed that uy = 1 for the leading 


term of the Blasius series (see Equation (A.38) ), or uy = 0 for the second term (see Equation (A.39) ). 
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For the case at hand (1.e., the boundary layer on an infinite wall under a stationary vortex), a value of 
1 = 3.6 was found to be sufficient. Were a value of 1° chosen to be much larger than 3.6, there would 
be wasted calculations; too small a value of n° would result in loss of accuracy. 

At this point, the back-substitution begins, with calculations continuing as the velocity profile 
and stream function are obtained from Equation (A.62). Note that, in the linearization of Equation 
(A.26), a convenient function was chosen to represent a first-guess at the boundary layer velocity profile 


which satisfied all the boundary conditions. A parabolic velocity profile is utilized in the calculations: 


2 , 3 
novfat a 
n 3\n 
2 
von= ft} (A.69) 
TY n 














For the second and subsequent iterations, the values of u and f obtained from the previous iteration are 
used as the current estimates, u” and f’, respectively. 
Synopsizing the numerical procedure for the case of a stationary vortex over an infinite flat plate, 


we have: 


1. At & = —oo, self-similar velocity profiles are calculated iteratively to obtain the first 
terms 1n the Blasius series representations for fp (1 ), Uo (yn ), and up(n). This process begins with values 
of y= 1,5=4, and w = 0, in conjunction with a parabolic first-guess estimate of the boundary layer 
velocity profile (Equation (A.69)). From one iteration (using the Thomas algorithm) to the next, the 
output values of f, u, and u’ are then employed as the estimated values for the next iteration, f, u', and u”. 


Seven iterations are usually sufficient to obtain convergence to five decimal places, and these functions 


(f, (7), Uy (n), and u6(n) ) are retained for later combination with their respective second terms of the 
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Blasius series representations. Finally, dimensionless integrals of momentum and displacement 


thicknesses are calculated, along with the shape factors H and T. 


2. Now that the coefficients have been obtained 1n Equation (A.39), the Thomas 


algorithm is employed to solve for f,(n), u,(n), and u}(n). Since Equation (A.39) is linear, no iteration is 


required. 


3. Two-term Blasius series representations are now available for use as starting, profiles 
for f, u, and u’ at a position (& = & ) sufficiently far upstream of the vortex position. Values of momentum 


and displacement thicknesses and skin friction are calculated. 


4. A streamwise step size, d& , is chosen, and the streamwise calculations are begun at 


&=& + 2dE. Equations (A.16), (A.31), and (A.27) are then utilized to calculate 2 5, y, and w. 


5. The Thomas algorithm now utilizes these values to produce (normally with only two 
iterations) estimates of f, u, and u’. In the first cycle of iteration, the values of f, u, and u’ are 


approximated by the values at E = & + dé. 


6. The converged values of f, u, and u’ are used to calculate the shape factors (H and T), 


displacement and momentum thicknesses, and skin friction. 


7. In anticipation of the next step downstream, the profiles for u and f at &+ dE and 


E> + 2d are shifted into storage arrays as the two most recent sets of calculated profiles. 


8. Steps 4 through 7 are repeated as — is incremented. The process is repeated until a 


negative value of skin friction is obtained, thereby indicating boundary layer separation. 


Using, this procedure (and the NEWBL code provided in Sherman [1990] ) with a vortex strength 


of I = x and with calculations beginning at & = -10.0, it 1s found that separation occurs at &., = 0.176, 
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with a momentum thickness of 89 = 0.471 beneath the vortex and 6,., = 0.608 at separation. By varying 
the position at which calculations begin, 1t was found that these values did not vary at the third decimal 
place until calculations were begun at & =-2.0. It is evident that the boundary layer rapidly forgets its 
upstream history as long as it is forming in a favorable pressure gradient. Hand in hand with this 
conclusion is the fact that the flow becomes increasingly unstable in the region of decelerating, potential 
flow. To maintain accuracy, it was necessary to begin halving the streamwise step size (d& ) as separation 
was approached (beginning at approximately & = -2.0), with successive halvings at judiciously selected 


points until separation was achieved. 


D. LEADING EDGE AT FINITE & 
In this instance, we have 6 = 0 at the leading edge & = & (see Figure A.2) , so that Equation 


(A.12) becomes (with the change of variable & = x /a ) 
67(E)U 
“eee = 0.45(1+8)°[F©)—FE)], (A.70) 
where 


F(E) == [agus y+ + 56E(1+E7) 3 + TOE +E?) + 10SEC +E? 7) + 105arctan(&)]  (A.71) 


From Equations (A.27), the following relationships are derived after choosing A’ = 40/9: 


$= —4E, (1485) (E-Eq) (A.72) 
w=2(F-&) (A.73) 
y =14+8E,(1+&5)' (E-Eq). (A.74) 


Additionally, a new two-term Blasius series is required to represent the velocity and stream functions. As 


suggested by Sherman [1990], a successful form is 
(E-E,)” 
u(§,n) = Up (ny) + Uy (MKE—- Go) + Uy ya. (A.75) 


ue (En) = uy (M) + U2 (MKE- Eo t-.-- (A.76) 


205 


Figure A.2 Boundary layer on a semi-infinite flat plate under the influence of a stationary line vortex 
(not to scale ). 





($- 5) 


2 





£(6,1) = fo(m) + f, (ME- So) + fe ae (A.77) 


f,. (E.m) = f,(m) + f, (MME- Eo... (A.78) 
With all of the foregoing in place, attention returns to Equation (A.26), where the appropriate 
substitutions are made. Collecting terms which are associated with (& - Ep )”, we obtain 
us + fous = 0.’ (A.79) 
This is of the form of Equation (A.26) where 7 = 1 and 5 = w = 0. Next, the terms associated with(& - & yp 


are found to be 





ul +(fo ju; —(2u, )u, +(3u9 )f, = ei j1- us - 2Fyu5 | (A.80) 
0 


* Note that this may be recast as the classic Blasius function, f7+ f,f7 = 0. 


206 


The parenthesized terms and the entire nght-hand side of the last equation are all known quantities after 
having solved the first term of the Blasius series. The process continues with a finite difference 


representation of the last equation to obtain 


| 2 | l | 45, ; 
Wee — | | ——{ — 2U, I+ — +— |+f,_,10}+f,|3u,/+f,., [9] = 1- 
n iz Th u, h? Uo Uns h? 7 Th ae n-1l }+ ‘|| us| + aa eee ( u 





Ay Bij Ci Ay Bi Cir D, 

In this last equation, B,; , By2 , and D,; are the only terms which are different from those in 
Equation (A.56) for the infinite flat plate. We note also that the second equation to describe this physical 
situation is identical to that for the infinite flat plate, Equations (A.57) through (A.59), so that the 
coefficients are also identical. Finally, the boundary conditions which are applicable for this situation are 
f, (0) = u; (0) = u, (co) = 0, fp (0) = up (0) = 0, and Up (00) = 1. 

Computer coding for the case of a finite plate was not included in Sherman [1990], but the 
NEWBL code was modified for this case and run for various distances of the leading edge upstream of the 
stationary vortex. A value of n° = 6.5 was required to capture the full shape of the velocity profile across 
the boundary layer. With the vortex at & = 0 and the leading edge at & =-10, the same values of 
momentum thickness directly under the vortex (6(0) = 0.471) and at separation (6,,, = 0.608), and the 
same location for separation (&., = 0.176) were obtained as for the infinite plate case. Very little change 
(down to the third decimal place) was noted until the leading edge was closer than & =-2.0. When the 
vortex was directly over the leading edge, &., = 0.291, 6(0) = 0, and 6,,, = 0.433. The strong upstream 
favorable pressure gradient results in almost complete loss of memory in the flow when the leading edge is 
far upstream. The current analysis produced values of 85 and &., which agreed well with values provided 


in Table 12.1 of Sherman [1990]. 


E. INCORPORATION OF FREE STREAM AND NUMEROUS VORTICES 


To make the code applicable to more realistic flow situations, the outer (potential) flow was 


modified to include a free stream and several vortices. Additionally, numerical integration was utilized to 
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calculate Thwaites’ integral (Equation (A.12)) in lieu of using, the series expansion (Equations (A.16) or 
(A.17)), which would significantly increase program execution time. Specifically, a Romberg integration 
routine was employed (see, e.g., Kuo [1972] ). Again, the assumption is made that the flow 1s quasi- 
steady, so that the Sherman boundary layer technique can be used to predict separation on a flat plate 


beneath a vortex field in the presence of a free stream. 


F. PROGRAM VERIFICATION 
At this stage, the code was verified by limiting the flow field to a single stationary (U., = 0) 


vortex above a semi-infinite flat plate whose leading edge was varied from & = -10 (essentially an infinite 
flat plate) to & = 0. The results (first column of Table A.1) agree with Sherman’s results to the third 
decimal place. Numerical (Romberg) integration of Thwaites’ integral was as accurate as the series 
expansion. 

Next, the code was tested with a free stream and no vortices in the flow field. The velocity 
profile at all streamwise positions proved to be precisely the Blasius velocity profile, the solution to 
Equation (A.79). Finally, the code was tested with a single vortex and successively larger free stream 
velocities at a variety of leading edge locations. For all cases, higher free stream velocities resulted in a 
delay of separation and a thinner boundary layer at separation, agreeing with intuition. For situations 
where the leading edge was located at a position -2 < E, < 0, the boundary layer momentum thickness 


directly beneath the vortex decreased uniformly with increasing free stream velocity. 
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Table A.1 Parametric analysis conducted for verification of boundary layer code. 





APPENDIX B: PROGRAM PLATE.FOR 


ieee Me CCOCCCCCCCCCCECCCCECCCCCCCCCCECECECCCCCEECCCCCCE CC CEC ECC CCECCCCC 
ieee eCeCCCCCCececccccceccccccececcccccccccececcecceccecececcecce cc cecccccccce 


PMP ELeiT COMPLEX(C,Z), INTEGER(I-N} 

CnaArACTER RUNNO*3, FILM~/, RECAP*8, CHECK* 1, RMNDR*59, KILL*2 
GHARACTER: DISCRI* i, POT*1 

CHARACTER*60 COMNTS (5) 

COMMON /VORTEX/ZV (300, 4) ,CV(300,4),GV(300,4) ,GV0(300,4), 


1 DGDT (300, 4) , AGE(300,4),GSHED(800, 4) ,GLOST(800,4), 
Z GVMIN, GVOMIN, NNV (4) , NNB, NVMAX 


COMMON / SAVE/XVORT (800) , YYORT (800) , XSEP (800) , YSEP (800) , USEP(800) 
COMMON /TIMES/DELT,T (800) ,NT, NTMAX, NTSTOP 

COMMON/CONST/ ZONE, ZERO, ZFAC, ZI, ZPI, PI, TWOPI, PI90, PI180, OV2PI 
COMMON/ SURFCE/Q (200) , PTOTAL (200) , PVORT (200) , PVELO(200), 


1 DX, NDX, XMAX, X (200) , XI (500), TAU (500), BLDISP(500), 
Zz BLMOM (500) ,MSEP, FY (800) ,XBAR(800) 


COMMON/ FLOW/RCORE, CINF, VINF, RMIN, BDISP, NOTOCH, AGECHK 
COMMON /MISC/RUNNO, NPLOTS, NCOMNT, COMNTS 
COMMON /MISC1/NHICUP 


meerenwece CC CCCCCCCECECCCECCCCCECECCCCECCCECCEECECCCCECCCCCCCECCCCCCCEECCC 


GIG Gl) ClO? Gly CaO)! @lG) <)) (2 @) «) 


THIS CODE IS THE LATEST IN A SERIES OF PROGRAMS WHOSE ORIGIN WAS 
DEVELOPED BY PROF T. SARPKAYA IN THE EARLY 1960'S. IT HAS 
UNDERGONE NUMEROUS REVISIONS AND REFINEMENTS AS MANY STUDENTS 
HAVE UTILIZED IT IN CONJUNCTION WITH RESEARCH INVOLVING THE 
DISCRETE VORTEX MODEL. ITS CURRENT USE SIMULATES VORTEX FLOW 
PAST A SEMI-INFINITE FLAT PLATE, AND MAY INCLUDE VISCOUS EFFECTS 
AND CONSEQUENT SECONDARY VORTEX GENERATION. THE CURRENT VERSION 
WAS WRITTEN AND COMPILED WITH MICROSOFT FORTRAN POWERSTATION 
VERSION 1.0; THE ACCOMPANYING PROGRAM IN APPENDIX C WAS UTILIZED 
TO PRODUCE GRAPHIC AND TABULAR OUTPUT. BOTH PROGRAMS WERE 
COMPILED AND EXECUTED ON A COMPAQ CONTURA 486DX LAPTOP RUNNING 
AT 25 MHZ.BOTH PROGRAMS PROMPT THE USER FOR VARIOUS RUNTIME 
PARAMETERS, SO THAT COMPILATION WAS NOT REQUIRED PRIOR TO EACH 
EXECUTION. WRITTEN BY CAPT MICHAEL R. MAIXNER, DEC 1994, IN 
CONJUNCTION WITH DOCTORAL DISSERTATION AT NAVAL POSTGRADUATE 
SCHOOL, MONTEREY, CA. 


mee eweee cece CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
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ay 


INPUT RUN NUMBER AND ANY OTHER INFORMATION REQUIRED; CONSTRUCT 
DATA FILE NAMES 


WRITE (6,10) 

FORMAT (' INPUT THREE-DIGIT RUN NUMBER') 
READ (5,5) RUNNO 

FORMAT (A3) 

FILM= RUNNO//'FILM' 
RECAP=RUNNO//'RECAP' 

WRITE (6,11) 

FORMAT (' INPUT FREE STREAM VELOCITY') 
READ (5,*) VINF 

BETA=VINF/ (1.+VINF) 

NCOMNT=0 
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15 WRITE(6,20) 
20 FORMAT(' INPUT <= 5 LINES OF COMNTS.IF NO ADDTNL LINES, INPUT 0.') 
READ (5,21) CHECK, RMNDR 
21 FORMAT (Al1,A59) 
IF (CHECK.EQ.'0') GO TO 25 
NCOMNT=NCOMNT+1 
COMNTS (NCOMNT ) =CHECK//RMNDR 
IF( (NCOMNT+1).GT.5)GO TO 25 
EG@tTo ls 
25 CONTINUE 
CCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCECCCECCCCEEECECCCEGCEEGECECCCCCECEC Sam eee 
c 


C COMPUTE NECESSARY PARAMETERS AND INITIALIZE ARRAYS 
& 

DELT=0.125 

PI=4.0*ATAN (1.0) 

PI90=PI/90. 


PI180=PI/180. 
TWOPI=2.0*PI 
OV2PI=1./TWOPI 
DEGNAS=32.0 
ANGNAS=DEGNAS*PI180 
ZERO=CMPLX (0.0, 0.0) 
ZONE=CMPLX (1.0, 0.0) 
ZI=CMPLX (0.0,1.0) 
ZFAC=CMPLX (0.0,OV2PI) 
Z PI=CMPLX (PI, 0.0) 
NPLOTS=0 
XSTOP=0.06 
WRITE (6, 40) 
YINITL=1.0 
40 FORMAT(' INPUT BEGINNING X-COORDINATE FOR MAJOR VORTEX') 
READ (5,*)XINITL 
WRITE (6,50) 
50 FORMAT(' INPUT MAXIMUM X-VALUE FOR MAJOR VORTEX TRAVEL") 
READ (5, *)XSTOP 
WRITE (6,55) 
55 FORMAT(' DO YOU WANT PURELY POTENTIAL RUN?') 
READ (5, 73) POT 
IF (POT.EQ.'y')POT='Y' 
BDISP=20.0 
DX=0.05 
XMAX=10.0 
NDX=XMAX/ DX 
RMAX=0. 4 
WRITE (6, 64) 
64 FORMAT(' DO YOU WANT MAJOR VORTEX DISCRETIZED?') 
READ (5,73) DISCRT 
73 FORMAT (Al) 
IF (DISCRT.EO. 'y') DISCRT="Y' 
IF (DISCRT.NE.'Y')GO TO 68 
IGAMMA=4 
68 RCORE=0.0075 
RMIN=RCORE 
NHICUP=0 
NOTOCH= (0.125/DELT) *15 


Zi 


AGECHK=NOTOCH* DELT 
CINF=CMPLX (BETA, 0.0) 
IPRT=1 
WRITE (6,70) 
70 FORMAT(' INPUT FREQUENCY OF PLOTTING AND PRINTING') 
READ (5,*) IPRT 
KILL='Y' 
IF (KILL.EQ.'y')KILL='Y' 
DV=0.4 
NNB=2 
NNV (1) =0 
NNV (2) =0 
NNV (3) =0 
NNV (4) =0 
NSUMRY=8 
NMOVIE=7 
NTMAX=300 
peeee~erecrcCCCCCCCCCCCCECCECCccccccecccecececceececccecccecececececccccec 
E UNFORMATTED DATA FILES ARE UTILIZED TO MINIMIZE TIME TO READ/WRITE, 
E AND TO MINIMIZE DATA FILE SIZE. 
€ 
OPEN (7, FILE=FILM, FORM='UNFORMATTED' ) 
OPEN (8, FILE=RECAP, FORM='UNFORMATTED' ) 
NVMAX=300 
DO 80 I=1,NTMAX 
DO 75 NB=1,NNB 
GLOST (I,NB)=0.0 
75 GSHED(I,NB)=0.0 
GSHED (I, 1)=PI 
XSEP (I) =0.0 
MemP(1)=0.0 
USEP (I) =0.0 
XVORT (I) =0.0 
YVORT (I) =0.0 
XBAR(I)=0.0 
FY (I)=0.0 
80 CONTINUE 
DO 90 NB=1,NNB 
DO 90 NV=1,NVMAX 
ZV (NV, NB) =ZERO 
CV (NV, NB) =ZERO 
GV (NV, NB) =0.0 
GVO (NV, NB) =0.0 
DGDT (NV, NB) =0.0 
AGE (NV, NB) =0.0 
90 CONTINUE 
DO 100 I=1,NDX 
mil = * Dx 
Q(1)=0.0 
PTOTAL(I)=0.0 
PVORT (I) =0.0 
PVELO (I) =0.0 
100 CONTINUE 
MumemeeeecCCCCCCCCCCCCCCCCCCCCCCCCCCCCCeCcCectcccecccecceeccecccceccccc 
e 
6 START THE CALCULATIONS 
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cae 
Vii 1) —EMP EX (XINDIL, YINITL) 
ae 1)=PI 
GVO (1, 1) =G6V (1d) 
GVMIN= 0.001 
IBLSTP=0 
IBLMAX=3 
DA) Diet 
NT=0 
9999 NIPI-Ni+1 
IF (NTP1.GT.NTMAX)GO TO 10001 


NT=NTP1 

GAMMA=GV (1,1) 

ZIN=ZV (1,1) 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCOOCOCCOCO CCC COC COC CCC Sees 
C IF DISCRETIZING PRIMARY VORTEX, THIS "EXPLODES" IT INTO A CLUSTER 


cS 
IF ( (NT-EQ<2).. AND: (DISGRT.EO.* ¥"))) 
al CALL EXPLOD (1, GAMMA, ZIN, RMAX, IGAMMA) 
TE aN he.) ace Oe hus 
T (NT) =T (NT-1) +DELT 
DO 102 NB=1,NNB 
102 GLOST(NT,NB)=GLOST (NT-1, NB) 
105 JPRT=0 
IF (MOD(NT TERT) EO. 0) wr Rta 
CCCCCCCCCCCCCCCCCCCCCCCCCECCCCCCCCCCCCCCCCCECCCCECCCECCECECCEC CCS eae 
ce CALCULATE CENTROID OF PRIMARY VORTEX CLUSTER. 
S 
CALL AMALG (1,1, ZCNTRD, GTOTAL) 
XVORT (NT) =REAL (ZCNTRD) 
YVORT (NT) =AIMAG (ZCNTRD) 
WRITE (6, *) ZCNTRD 
cecceccecececcecececcececcecececceccececececceeceeceececececcecececcececcces 


DETERMINE VELOCITY DISTRIBUTION ON PLATE AND COMPUTE 
SEPARATION POINT AND VELOCITY AT SEPARATION POINT (USEP) 


aaAaaANn 


PECEOl.5bO. 1) GO.1eeiL9 
IF (IBLSTP.LT.IBLMAX) CALL NEWBL(XVORT (NT) , XSEP (NT) , USEP (NT) ) 
Te (NT. £0. 1) WRITE (6,110) 2SEE (NT) 
110 FORMAT(' FIRST SEPARATION POINT IS AT X=',F8.4) 
Oy Gs Gi Gs G; & Gi GGG GO! © OO: O OO G1 OS OO SO OO: OS: O OS S/O: OOS GOS Ce SWS SSCS MSEBSESEBESE CEO 


CREATE NEW NASCENT VORTEX AND INTRODUCE AT COMPUTED SEPARATION 
POINT AND AT A DISTANCE TO SATISFY KUTTA CONDITION; CALCULATE 
VELOCITY AT SEPARATION POINT AND THEN NASCENT VORTEX STRENGTH. 


aqaaaAAN 


NNV (2) =NNV (2) +1 
NV=NNV (2) 
GV (NV, 2) =-0. 5*USEP (NT) *USEP (NT) *DELT 
IF (USEP(NT) .LT.0.0001)GO TO 115 
R=ABS (GV (NV, 2) ) *COS (ANGNAS) / (PI*USEP (NT) ) 
GO Tor iic 
115 72-080 
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116 XV=R*SIN (ANGNAS) 
YV=R* COS (ANGNAS ) 
XV=XV+XSEP (NT) 
YSEP (NT) =YV 


GVOMIN=0.0 
rex VORLT INE) GT .0.5) 
dk GVOMIN=DELT*0.5* (BETA+DV) **2 


Pain bi. EOn Y° ) «AND. (ABS(GV (NV, Z)).LT.GVOMIN) ) 
34 GV (NV, 2)=0.0 
GVO (NV, 2) =GV (NV, 2) 
Meeecec CCCCcccecccececececececcecccecccceecececececceccceccccceccccccccce 


IF THE NASCENT VORTEX HASN'T SATISFIED THE MINIMUM STRENGTH 
CRITERION (SET FOR THE CASE WHERE THE VORTEX HAS GONE AT LEAST 
TO X=0.5), THEN ADD 1 TO THE COUNTER. WHEN THE COUNTER HITS A 
CERTAIN TALLY (IBLMAX), THEN IT'S HIGHLY UNLIKELY THAT THE BL 
WILL BE INTRODUCING ANY MORE VORTICITY TO THE FLOW, AND 
COMPUTATION TIME CAN BE SAVED BY BYPASSING THE SEPARATION 
POINT CALCULATION. 


Cle Ie eC One ae mi ol @: 


Pre GV (NV,2).E0.0.0) -AND. (GVOMIN.GT.0.0) ) IBLSTP=IBLSTP+1 
ZV (NV, 2) =CMPLX (XV, YV) 
ioe weRiteh (6,120) NT,T(NT),GV(NV,2),XSEP(NT) , YSEP (NT) , REAL (ZCNTRD) 
PeemeokRMAT (1X, 'NT=',13,° T=',F6.3,' G=',F6.3,* XSEP=',F6.3, 
1 ' YSEP=*,F6.4, 9 XVORT=",F6.3) 
toe. BO.1). GO TO 2005 
GSHED (NT, 2) =GSHED (NT-1, 2) +GV (NV, 2) 
eo TO 2010 
2005 GSHED (NT, 2) =GV (NV, 2) 
Z040 CONTINUE 
meee eee cece CCCCCCECCCCCCCECECCCCCCECCCCCCCCCCCCCCCCCCECCCECCCCCCCCCCCE 
‘Ss 
C DETERMINE VELOCITIES AT EACH VORTEX POSITION AND CONVECT 
C VORTICES DOWNSTREAM 
Ss 


CALL MOVE 
NB1=1 
NB2=NNB 
CALL CNCL(NB1,NB2,NCL) 
fimiicL.Lr.1) GO TO 2065 
DO 2050 NB=1,NNB 
CALL PACK (NB) 
2050 CONTINUE 
2065 CONTINUE 
memeeeeececc CCCCCCCCCCCCCCCCCCcccccccccceccececcececececceecceceececceccce 
c 
c DiSSLPATE VORTICITY 
C 
mow Oeir(POT.NE."*Y*)CALL DISP 
Mme Ge@ecee oc CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCcccceccccccecccceccecceeccccce 
8 
C COMPUTE SURFACE PRESSURE AND VELOCITY DISTRIBUTIONS 
C 
CALL PRVEL 
m_mmmmiem eee oeCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCECCCCECECCCCCCCE 
C 
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C STORE OUTPUT DATA 


Pee PRE NE) COnl© oo 00 
CALL MOVIE (NMOVIE) 
REWIND (NSUMRY) 
CALL SUMARY (NSUMRY ) 
5900 CONTINUE 
IF (REAL(ZCNTRD) .GT.XSTOP) GO TO 10001 
GO Owe 99 
LOQOT RIE M@PRT.b©.1)Go TO 10002 
CALL MOVIE (NMOVIE) 
CALL SUMARY (NSUMRY) 
10002 CLOSE (7,STATUS='KEEP' ) 
CLOSE (8, STATUS=' KEEP ' ) 
STOP 
END 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCE CECE CCC CCC Cee Ce eee Cee eee eee eat 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCC CECE CeCe re eee ee eee eee 
SUBROUTINE PRVEL 
IMPLICIT COMPLEX (C,Z) , INTEGER (I-N) 
COMMON /VORTEX/ZV (300, 4) ,CV(300,4) ,GV(300,4) ,GV0(300,4), 
i DGDT (300, 4) ,AGE(300,4) ,GSHED(800, 4) ,GLOST(800,4), 
Z GVMIN, GVOMIN, NNV (4) ,NNB, NVMAX 
COMMON/TIMES/DELT, T (800) ,NT, NTMAX, NTSTOP 
COMMON/SURFCE/Q (200) , PTOTAL (200) , PVORT (200) , PVELO (200), 
3 DX, NDX, XMAX, X (200) , XI (500) ,TAU(500),BLDISP (500), 
2 BLMOM (500) ,MSEP, FY (800) ,XBAR(800) 
COMMON / FLOW/ RCORE, CINF, VINF, RMIN, BDISP, NOTOCH, AGECHK 
CCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCECECCECEC CEC CCC Ce ee eee Ce eee eee 


CALCULATES PRESSURE AND VELOCITY ON PLATE SURFACE. 
NOTE: THIS IS WHERE SMOOTHING/FORCE/MOMENT ROUTINE WOULD 


BE PLACED, IF THEY ARE MOVED FROM THE GRAPHICS 
SUBROUTINE. 


O71 On|) OQ) 


DO 100 I=1,NDX 
CALL PRESUR(X(2), PVORT (1) ; PVELO(T), PIOlAn thir Outs) 
100 CONTINUE 
RETURN 
END 
Os Oi ©; OF @: G; Gi H; 6 OO; Ol GW Gi 6} OO! S/O Gi O/H © GO) O O81 S; ©, OOOO; O(O1 S O[O1O/ S/O] OO US SSAC SPAS CC OEGB oo | 
cecececececcecececceecceecccccccecccccCCcCCCCCCCCCCCECCCCCCCCCCCCC ECG eeee 
SUBROUTINE PRESUR(X, PV, PO, PT, Q) 
IMPLICIT .COMPLEX(¢G, 2), INIBGER. 2) 
COMMON / VORTEX/ZV (300, 4) ,CV(300,4) ,GV(300,4),GV0(300,4), 
il DGDT (300, 4) ,AGE(300,4) ,GSHED (800, 4) ,GLOST (800, 4), 
Z GVMIN, GVOMIN, NNV (4) ,NNB, NVMAX 
COMMON/CONST/ZONE, ZERO, ZFAC, ZI, ZPI, PI, TWOPI, PI90, PI180, OV2PI 
CCCCCCCCCCCECCCECCECECECCCCCCCCCCCCECE CREE CE CECCC CCE SSCP ee CeCe CC CCeens 


G 
C DOES DETAILED VELOCITY AND PRESSURE CALCULATIONS. 
Cc 

QO=UTAN (X) 

ZZ=CMPLX (X, 0.0) 

ZPSUM=ZERO 
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ZHOLD=ZERO 

DO 3000 NB=1,NNB 

NV2=NNV (NB) 

TEeiNV2.L?.1).GO TO 3000 

DO 2000 NV=1, NV2 

ZK=ZV (NV, NB) 

DKRATE=DGDT (NV, NB) 

ZKIMAG=CONJG (ZK) 

GAMA=GV (NV, NB) 

ZDIFRL=ZZ-ZK 

ZDI FIM=ZZ2-ZKIMAG 

CVELRL=CV (NV, NB) 

CVCONJ=CONJG (CV (NV, NB) ) 

Z PSUM=Z PSUM+DKRATE* CLOG (ZDIFRL/ZDIFIM) 

ZHOLD=ZHOLD+GAMA* (-CVELRL/ZDIFRL+CVCONJ/ZDIFIM) 

2000 CONTINUE 
3000 CONTINUE 

ZPSUM=ZI1* (ZPSUM+ZHOLD) 

PV=REAL (ZPSUM) /PI 

Eo--0*© 

PT=PV+PQ 

RETURN 

END 
Mmeme@esececeCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCcCcccccccc 
memmeesecCcCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCE 

FUNCTION UTAN (X) 

IMPLICIT COMPLEX (C,Z) , INTEGER (I-N) 
@eeeeeececeCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
@ 

C CALCULATES COMPLEX VELOCITY ON PLATE SURFACE 
C 

Z=CMPLX (X, 0.0) 

GALL CVELP(Z,0,0,0,C) 

UTAN=REAL (C) 

RETURN 

END 
mueeeeeeccCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCCCCCECCCCCCCCCCCCCCCCCCCCCC 
memeeeeeceCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

SUBROUTINE MOVE 

IMPLICIT COMPLEX (C,Z),INTEGER(I-N) 

COMMON/VORTEX/ZV (300, 4) ,CV(300, 4) ,GV(300, 4) ,GV0(300,4), 

1 DGDT (300, 4) , AGE(300, 4), GSHED(800, 4) , GLOST (800, 4), 
2 GVMIN, GVOMIN, NNV (4) , NNB, NVMAX 

COMMON / SAVE/XVORT (800) , YVORT (800) ,XSEP (800) , YSEP (800) , USEP (800) 

COMMON/TIMES/DELT, T (800) ,NT, NTMAX, NTSTOP 

COMMON/CONST/ ZONE, ZERO, ZFAC, ZI, ZPI, Pl, TWOPI, PI90, PI180, OV2PI 

COMMON /FLOW/RCORE, CINF, VINF, RMIN, BDISP, NOTOCH, AGECHK 
MmmbeeececcCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

N.B.: IF NO NASCENT VORTEX IS INTRODUCED, THEN THE LAST VORTEX 
SHED IS TREATED AS THE NASCENT VORTEX--IF THIS SITUATION IS 
ALLOWED TO OCCUR, CODE NEEDS TO BE MODIFIED TO INCLUDE THE 
VELOCITIES INDUCED BY THE LAST VORTEX SHED!!!! THIS CAN BE 
CIRCUMVENTED BY ENSURING THAT, EVEN IF A VORTEX IS NOT INPUT, A 
"DUMMY" VORTEX OF ZERO STRENGTH IS INPUT IN THE MAIN PROGRAM, 
CONVECTED, AND THEN REMOVED FROM THE FLOW IN SUBROUTINE CNCL. 


OYOrcra ct? 


217 


«ee © @ © @ © © © © © «© @© © © 8 © 8 © 6+ © © © © © 2 © © © «© © @ © © @ ££ 2 2 8 8 we 8 ee ea ee Oe ee eee Oe OO 6 ee oe 


Cc 
& COMPUTE VELOCITIES OF ALL VORTICES. VELOCITY OF NASCENT VOR@2 
© IS DETERMINED AS A SPECIAL CASE. VORTICES ARE CONVECTED 

Cc WI THOU THE Er PECIS OF THE NASCENT VORTICES. 

C 


DO 3035 NB=1,NNB 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CC CCC CCC CCC eee Cee eee ee eet 
& 

C TEMPORARILY REMOVE THE NASCENT VORTEX FROM THE CALCULATIONS 
C 

IF (NB.EQ.2) NNV(NB)=NNV(NB)-1 

NV2=NNV (NB) 

EEINV2. lt |) GO-TO 3035 

DO 3030 NV=1,NV2 

3025 CALL CVELP (ZV(NV,NB),1,NV,NB,C) 

CV (NV, NB) =C 

3030 CONTINUE 
30357 Continue 

NV=NNV (2) +1 
CCCCCCCCECCCCCCOCCCCCCCCCCEEC CEC CE EC CCCCC CE CEC CCC CC CE CCC CC CCC ee eee aaa 
ce 
S THE NASCENT VORTEX IS CONVECTED WITHOUT THE INFLUENCE OF 
(& ITS IMAGE 
c 


3037 CALL CVELP (ZV(NV,2)7 070, 0, Cv ii, 2 
3039 NNV(2)=NNV(2)+1 
CCCCCCCCCCCCCCCCCCCCCCCC CE CEC CCC CE CCC CC ECC CCC Cee ee eee CC CCC CeCe esas 
& 
e CONVECT VORTICES AND INCREASE THEIR AGES BY ONE TIMESTEP. 
Cc 
DO 3050 NB=1,NNB 
NV2=NNV (NB) 
TE (NV2Zo00 71) Ger ro S00 
DO 3040 NV=1,NV2 
AGE (NV, NB) =AGE (NV, NB) +DELT 
3333 ZV(NV, NB) =ZV (NV,NB) +DELT*CV (NV, NB) 
3040 CONTINUE 
3050 CONTINUE 
CCCCCECECCCCCCCCCCCCCCCCCCCCCCECCECCCCE CCC CECE CECE CE Ce CeCe Cee eee eere ms 


c 
c ENSURE THAT NO VORTICES ARE CONVECTED ACROSS THE PLATE. 
c ANNIHILATE THOSE VORTICES TOO CLOSE TO THE PLATE. 
c DO NOT CONSIDER THE VORTICES NEAR THE SEPARATION REGIONS. 
Cc THE FIRST FIFTEEN (FOR DELT=0.125) VORTICES ARE CONSIDERED 
S TO BE IN THIS “EXCLUSION ZONE. @@F DELT=07062551>SSUCED- 
C THE NUMBER OF EXEMPTED VORTICES 1S 307 5AND) SO 7CN- 
‘Ss 

YMIN=RCORE 

DO 3070 NB=1,NNB 

NV2=NNV (NB) 

IF (NV2Z.522 2) Gene 93070 

KEY=0 


DO 3060 NV=1,NV2 
IF (NB. B@22) GOeTO 3053 
IF (ABS (GV (NV,NB) ) . LT. GVMIN) KEY=1 


218 


Beee@ce COCCeCCOCCUCCCCCCECCCCCCCCCCCCECCCCCCCEeccecccececcececcccccceccc 


Preek TO sSEE -1P ANY VORTICES HAVE BEEN SHOT” FORWARD OF <THE 
CALCULATED SEPARATION POINT; IF SO, REMOVE FROM THE FLOW AND 
POO 2 1HE GLOsT TALLY. DOvNOT CONSIDER VORTICES IN THE 
MAJOR VORTEX SHEET--THEY CAN APPROACH THE LEADING EDGE FROM 
7A, UPSTREAM POSITION! ALSO, ONLY REMOVE THOSE VORTICES WHICH 
Pee CLOSE (Y<0.5) TO THE PLATE. 


OGY Ot 100) C1") 


X=REAL (ZV (NV, NB) ) 
Y=AIMAG (ZV (NV, NB) ) 
fre ein. GE. sSBPI(NT)).ORs(Y¥.GE.0.5)})GO TO 3053 
WRITE (6, 3052)NV,NB 
3052 FORMAT(16H VORTEX NUMBER (,13,1H,,12,18H) IS AHEAD OF XSEP) 
GLOST (NT,NB) =GLOST (NT,NB) +GV (NV, NB) 
GV (NV, NB) =0.0 
KEY=1 
GO TO 3060 
pee memecec CCCCCCCECCCCCCececceccececececcececececceccecccecccccecccccccec 


& 

© FOR THOSE VORTICES WHICH ARE NOT AHEAD OF THE SEPARATION REGION, 
& ATID WHICH ARE NOT IN THE FIRST 135 VORTICES, CHECK TO SEE IF THEY 
& ARE WITHIN A CORE RADIUS OF THE PLATE; IF SO, REMOVE FROM THE 

8s FLOW AND ADD TO THE GLOST TALLY. 

& 


3053 IF(AGE(NV,NB) .LE.AGECHK) GO TO 3060 
Y=AIMAG (ZV (NV, NB) ) 
ies (yY.Gl.YMIN) GO TO 3060 
WRITE (6,2)NV,NB 
ZeeerMAT (16H VORTEX NUMBER (,13,1H,,12,23H) HAS CROSSED THE PLATE) 
GLOST (NT ,NB) =GLOST (NT, NB) +GV (NV, NB) 
GV (NV,NB)=0.0 
KEY=1 
3060 CONTINUE 
IF (KEY.EQ.1) CALL PACK (NB) 
3070 CONTINUE 
RETURN 
END 
pmeeee reece cCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
fe ee eee ce CCC CCCCCCCCCCCCCECCCCCCCCCCCCCCCCCCCCCCECCCCECCCCCCCCCCCCECCC 
SUBROUTINE CVELP (Z,KEY,NV1,NB1,C) 
MipLTeTT COMPLEX (C, Z), INTEGER(I-N) 
COMMON /VORTEX/ZV (300, 4) ,CV(300, 4) ,GV(300,4) ,GV0(300,4), 
i DGDT (300, 4) , AGE(300,4),GSHED(800,4) ,GLOST(800,4), 
Z GVMIN, GVOMIN, NNV (4) ,NNB, NVMAX 
COMMON/TIMES/DELT, T (800) ,NT, NTMAX,NTSTOP 
GOMMON/ CONST/ ZONE, ZERO, ZFAC, Z1,ZP1,P1,TWOPI,P190, P1180, OV2PI 
COMMON/ FLOW/RCORE, CINF, VINF, RMIN, BDISP, NOTOCH, AGECHK 
Me ee@ereeccCCCCCCCCeccccececccccecccccceccecccececcccecceccecccccceccecccc 


VELOCITY CALCULATION 


KEY=0 DENOTES CALCULATION ASSOICATED WITH CONVECTION OF NASCENT 
MORTEX, THE SOLID SURFACE, OR, IN THE MOST GENERAL SENSE, AT SOME 
POINT WHICH IS NOT A VORTEX. 


Croc CFG err) 
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Ie 749 


1100 
1200 


1300 
Sao 


C=ZERO 

DO 1200 NB=1,NNB 

IF (KEY. EO 2OimGO 70411020 

IF (NB. BOONEI) = Go 10 71200 
NV2=NNV (NB) 

IP (NV22b i) Gee esi Z00 

DO 1100 NV=1,NV2 

ZN=ZV (NV, NB) 
C=C+CVRANK (Z, ZN, GV (NV, NB) , 0) 
CONTINUE 

CONTINUE 

IF (KEY-EO.0) GOrlomise? 
NB=NB1 

IF (NNV(NB) .LT a) Go TO 1506 
I1=1 

I2=NV1-1 

I3=NV1+1 

I4=NNV (NB1) 

IF (12-.LT.11) GO Tomreise 

DO 1300 NV=I1,I12 

ZN=ZV (NV, NB) 
C=C+CVRANK (Z, ZN, GV (NV, NB) , 0) 
CONTINUE 

If (14.9213) GOrTo 14720 

DO 1400 NV=I3,14 

ZN=ZV (NV, NB) 
C=C+CVRANK (Z, ZN, GV (NV, NB) , 0) 


1400 CONTINUE 
CCCCCCCCCCCCCCCCCCCCCECCCCCCCCCCCCCCCCCCCCCCCCE CEC ECC CECE CCC ECCEC Eee nan 


@ 2 @ i @ ee) 


1420 
1500 


INCLUDE THE EFFECT OF THE IMAGE OF THE VORTEX BEING 
CONVECTED 


C=C+CVRANK (Z, ZV(NV1,NB1),GV(NV1,NB1),1) 
CONTINUE 

C=C*ZFAC 

C=CMPLX (-~REAL(C) , AIMAG (C) ) 

C=C+CINF 

RETURN 

END 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCE CCE CCE eee eee ee ee CCE eC eee eee es 
CCCCCCCCCCCCCCCCCCCCCCCCCCECCECCCECECCCCC CC Ce eee CCC CS CCC ree Clee re 


FUNCTION CVRANK (Z, ZN, GV, KEY) 

IMPLICIT COMPLEX (C,Z) , INTEGER (I-N) 
COMMON/CONST/ZONE, ZERO, ZFAC, ZI, ZPI, PI, TWOPI, PI90, P1180, OV2PI 
COMMON / FLOW/RCORE, CINF, VINF, RMIN, BDISP, NOTOCH, AGECHK 


CCCCCCCCCCCCCCCECE CCE ECC CCC CCC CCC Ce ee ee eee ee eee ee eee CC CeCe ee ee aan 


Pie @ a i 1 @ la @ a | 


RANKINE VORTEX VELOCITY CALCULATION. 


KEY=0: MOST GENERAL CONDITION 
=1: CONVECTION OF A VORTEX POSITION, WHEREIN SELF-INDUCED 
VELOCITY IS SKIPPED, AND ONLY THE CONTRIBUTION “OF THE 
IMAGE IS INCLUDED. 


ZNCONJ=CONJG (ZN) 
ZDIFRL=Z—-Z2N 
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ZDIFIM=Z-ZNCONJ 
RREAL=CABS (ZDIFRL) 
RIMAG=CABS (ZDIFIM) 
CREAL=ZERO 
EE (KEY.8O.1)GO TO 100 
IF (RREAL.GT.RCORE) GO TO 50 
TP (RREAL.LT,0.00001)GO TO 100 
ZCORE= (ZDIFRL/RREAL) *RCORE 
CREAL=(1.0/ZCORE) * (RREAL/RCORE) 
GO TO 100 
50 CREAL=1.0/ZDIFRL 
100 CIMAG=ZERO 
IF (RIMAG.GT.RCORE) GO TO 150 
IF (RIMAG.LT.0.00001)GO TO 200 
ZCORE= (ZDIFIM/RIMAG) *RCORE 
CIMAG=(1.0/ZDIFIM) * (RIMAG/RCORE) 
GO TO 200 
150 CIMAG=1.0/ZDIFIM 
200 CVRANK=GV* (CREAL-CIMAG) 
RETURN 
END 
mmememeeeeccCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
mmemmmeGeCeCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCE 
SUBROUTINE DISP 
MMPELCIT COMPLEX (C,Z),INTEGER(I-N} 
COMMON /VORTEX/ ZV (300, 4) ,CV(300,4) , GV(300, 4) ,GV0(300,4), 
1 DGDT (300, 4) ,AGE(300, 4), GSHED(800, 4), GLOST (800, 4), 
Z GVMIN, GVOMIN, NNV (4) , NNB, NVMAX 
COMMON/TIMES/DELT, T (800) ,NT, NTMAX, NTSTOP 
COMMON / FLOW/RCORE, CINF, VINF, RMIN, BDISP, NOTOCH, AGECHK 
BemeemeeeeccCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCCCCCCCCCCCCCCCC 
C 


S DISSIPATES EACH DISCRETE VORTEX'S STRENGTH. 
© 

DO 1200 NB=1,NNB 

TO=0.0 

NV2=NNV (NB) 

MeiNB.EQO-1)GO TO 100 

NV2=NNV (NB) 

tani 2.LbT.1)GO TO 1200 

TO=AGECHK 


hoomee 1100 NV=1,NV2 
IF (AGE (NV,NB) .LE.AGECHK)GO TO 1100 
GHOLD=GV (NV, NB) 
TDIFF=AGE (NV, NB) -TO 
te CEDIFE.LT.DELT) TDIFF=DELT 
EXPONE=EXP (-BDISP/TDIFF) 
GV (NV, NB) =GVO (NV, NB) * (1. O-EXPONE) 
GDIFF=GHOLD-GV (NV, NB) 
DGDT (NV, NB) =GDIFF/DELT 
GLOST (NT, NB) =GLOST (NT, NB) +GDIFF 

1100 CONTINUE 

1200 CONTINUE 
RETURN 
END 

Gum ee cCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCECCECCCCECECCCCCCCCCC 
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CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCECCECCCEECECCCECESeGeeGGe Ge oman 
SUBROUTINE PACK (NB) 
IMPLICIT COMPLEX (C,2Z), INTEGER(I-N) 
COMMON/VORTEX/ZV (300, 4),CV(300, 4) ,GV(300,4) ,GV0(300,4), 
it DGDT (300, 4) , AGE(300,4) , GSHED(800, 4) , GLOST (800, 4), 
2 GVMIN, GVOMIN, NNV (4) , NNB, NVMAX 
COMMON /CONST/ZONE, ZERO, ZFAC, ZI, ZPI, PI, TWOPI, P1190, PI180, OV2PI 
CCCCCCCCCCCCECCCCCCCCCCCCCCCCCCCCCCCCCECCECCCECECECECECE CECE ceeCe ean 


S 
g CONSOLIDATES VORTEX ARRAYS, IF ANY VORTICES HAVE BEEN PREVIOUSLY 
C REMOVED FROM THE FLOWFIELD 
G 
KNT=0 
NN=NNV (NB) 


DO 1020 N=1,NN 
TEST=ABS (GV (N,NB) ) -GVMIN 
DE (resi) 10207 LOreG; aoe 
1010 KNT=KNT+1 
LE (KNIT 2O.Nje Go. Te s1026 
ZV (KNT, NB) =ZV (N, NB) 
GV (KNT, NB) =GV (N, NB) 
CV (KNT, NB) =CV (N, NB) 
GV0 (KNT, NB) =GVO (N, NB) 
DGDT (KNT, NB) =DGDT (N, NB) 
AGE (KNT, NB) =AGE (N, NB) 
1020 CONTINUE 
N1=KNT+1 
DO 1030 N=N1,NVMAX 
ZV (N, NB) =ZERO 
CV (N, NB) =ZERO 
GV (N, NB) =0.0 
GVO (N,NB)=0.0 
DGDT (N, NB) =0.0 
AGE (N,NB)=0.0 
1030 CONTINUE 
NNV (NB) =KNT 
RETURN 
END 
CCCCCCCCECCCCCCCCCCCCCCCCCECCCCECCCCCCCECC CEC CCE CE CEE CEE CE CEC CECE ES eam 
CCCCCCECCCCCCCCCCCCCCCECCECCE CCE CCEECECC ECC CECE CECE CECE CCE CC ECC CCC Cree 
SUBROUTINE CNCL(NNB1,NNB2,NCL) 
IMPLICIT COMPLEX (C,Z) , INTEGER(I-N) 
COMMON /VORTEX/ZV (300, 4) ,CV(300,4) ,GV(300,4) ,GV0(300,4), 
L DGDT (300,4) ,AGE(300, 4), GSHED(800, 4) , GLOST (800, 4), 
Z GVMIN, GVOMIN, NNV (4) , NNB, NVMAX 
COMMON/TIMES/DELT, T (800) ,NT, NTMAX, NTSTOP 
COMMON/CONST/ZONE, ZERO, ZFAC, ZI, ZPI,PI,TWOPI, PI90, PI180, OV2PI 
COMMON/ FLOW/RCORE, CINF, VINF, RMIN, BDISP, NOTOCH, AGECHK 
CCCCCCCCCCCCCCCCCCCCCC CCC CCC CCC CCC OC CC CCC CC Ce Ce CC eee ee ee eee Cee seer 
c 
G COMBINES VORTICES IN CLOSE PROXIMITY TO ONE ANOTHER. 
é 
NCL=0 
DO 1400 NB1=NNB1,NNB2 
NNV1=NNV (NB1) 
IF (NNViSLT.2) GO To 1400 


ZLe 


1010 


OS 0 


1040 


DO 1300 NV1X=1,NNV1 
NV1=NNV1-NV1X+4+1 

G1=GV (NV1, NB1) 

Z1=ZV (NV1,NB1) 

DO 1200 NB2=NNB1,NNB2 

NNV2=NNV (NB2) 

ie (NNV2.LT.1) GO TO 1200 

DO 1100 NV2X=1, NNV2 
NV2=NNV2-NV2X+4+1 

IF (NB1.NE.NB2) GO TO 1010 

IF (NV1.EQ.NV2) GO TO 1100 
G2=GV (NV2, NB2) 

Z2=ZV (NV2,NB2) 

Z=7,1—7,2 

R=CABS (2) 

IF (R-RMIN) 1030,1030,1100 

immer Gil*Ge).LT.0.0) GO TO 1100 
G=G1+G2 

IF (ABS(G).GT.GVMIN) GO TO 1040 
GV (NV1,NB1)=0.0 

GV (NV2,NB2)=0.0 

ZV (NV1,NB1) =ZERO 

ZV (NV2,NB2) =ZERO 

CV (NV1,NB1) =ZERO 

CV (NV2,NB2)=ZERO 

GVO (NV1,NB1)=0.0 

GVO (NV2, NB2) =0.0 

DGDT (NV1,NB1)=0.0 

DGDT (NV2, NB2) =0.0 

AGE (NV1,NB1)=0.0 

AGE (NV2, NB2)=0.0 

NCL=NCL+1 

GO TO 1300 

CONTINUE 

Z='Z1*G1+Z2*G2)/G 

ZV (NV1,NB1) =Z 

GV (NV1, NB1) =G 

CV (NV1,NB1)=ZERO 

GV0 (NV1, NB1) =GVO (NV1, NB1) +GVO0 (NV2, NB2) 
DGDT (NV1,NB1) =DGDT (NV1, NB1) +DGDT (NV2, NB2) 
AGE1=AGE (NV1,NB1) 

AGE2=AGE (NV2, NB2) 

AGE (NV1,NB1) = (AGE1*ABS (G1) +AGE2* ABS (G2) ) / (ABS (G1) +ABS (G2) ) 
IF (AGE (NV1,NB1) . LT. AGECHK) AGE (NV1,NB1) =AGECHK 
GV (NV2, NB2) =0.0 

ZV (NV2, NB2) =ZERO 

CV (NV2,NB2)=ZERO 

GVO (NV2,NB2)=0.0 

DGDT (NV2,NB2) =0.0 

AGE (NV2,NB2) =0.0 

e1-—G 

l= 7, 

NCL=NCL+1 


1100 CONTINUE 
1200 CONTINUE 
1300 CONTINUE 


Z23 


1400 CONTINUE 
RETURN 
END 
CCCCCCCCCCCCCCCECEEECEECCCCCCCCCCEECEECECCECCEECCECEESE ES EECECECeCeeen as 
CCCCCCCCCCCCCCCCCCCCECECECCECCCCCCCCECCCCCCCEECECEEEEEECEEGECCCee eee mmm 
SUBROUTINE MOVIE (M) 
IMPLICIT COMPLEX (C,2Z),INTEGER(I-N) 
CHARACTER RUNNO*3, FILM*7, RECAP*8, CHECK* 1 
CHARACTER*60 COMNTS (5) 
COMMON/VORTEX/ZV (300, 4) ,CV(300, 4) ,GV(300, 4) ,GV0(300,4), 
1 DGDT (300, 4) , AGE (300, 4) , GSHED (800, 4),GLOST(800,4), 
2 GVMIN, GVOMIN, NNV (4) , NNB, NVMAX 
COMMON/TIMES/DELT,T (800) ,NT, NTMAX, NTSTOP 
COMMON/ SURFCE/Q (200) , PTOTAL (200) , PVORT (200) , PVELO(200), 
he DX,NDX, XMAX, X(200) , XI (500) ,TAU(500),BLDISP(500), 
2 BLMOM (500) ,MSEP, FY (800) , XBAR(800) 
COMMON/MISC/RUNNO, NPLOTS, NCOMNT, COMNTS 
CCCCCCCCECGCECECEECCECECECCCCCCCCCCCCCCCCCCECCCCCECEGEEGECEEECECE CCG Cem ammEE 


WRITES DATA FOR EACH TIMESTEP TO AN UNFORMATTED FILE: VORTEX 
INFORMATION, PLATE PRESSURE/VELOCITY DISTRIBUTIONS, ETC. 


OOa a 


NPLOTS=NPLOTS+1 
WRITE (M)NT,T (NT) 
DO 300 NB=1,NNB 
WRITE (M) NNV(NB) 
DO 300 NV=1,NNV (NB) 
300 WRITE(M) ZV(NV,NB),GV(NV,NB) , GVO (NV,NB) , DGDT (NV, NB) 
DO 1000 I=1,NDX 
1000 WRITE (M)X(I),O(1I),PVELO(I) ,PVORT (I), PTOTAL (I) 
WRITE (M) MSEP 
DO 2000 I=1,MSEP 
2000 WRITE (M) XI (I) ,TAU(I),BLDISP (I) ,BLMOM(I) 
RETURN 
END 
CCCCCCCECECCCCCCECCCCCCCCCCCCCCCCCCCCCCECCCEECECCCCECCCECECEEECE CEE Sem 
CCCCCCCEECECECECCCCCCCECCCCCCCCCCCCCECCCCECECEC CEECCECCECCEECECECCEE EGS e ae 
SUBROUTINE SUMARY (M) 
IMPLICIT COMPLEX (C,2Z) , INTEGER(I-N) 
CHARACTER RUNNO*3, FILM*7, RECAP*8, CHECK* 1 
CHARACTER*60 COMNTS (5) 
COMMON/VORTEX/ZV (300, 4) ,CV(300,4),GV(300, 4) ,GV0(300,4), 
1 DGDT (300, 4) ,AGE (300, 4) ,GSHED (800, 4),GLOST(800,4), 
Z GVMIN, GVOMIN, NNV (4) , NNB, NVMAX 
COMMON/ SAVE/XVORT (800) , YYORT (800) , XSEP (800) , YSEP (800) , USEP (800) 
COMMON/TIMES/DELT, T (800) ,NT, NTMAX, NTSTOP 
COMMON/CONST/ ZONE, ZERO, ZFAC, ZI, ZPI, PI, TWOPI, P1I90, PI180, OV2PI 
COMMON/ SURFCE/Q (200) , PTOTAL (200) , PVORT (200) , PVELO(200), 
it DX, NDX, XMAX, X(200) ,XI (500), TAU (500) , BLDISP (500), 
D BLMOM (500) ,MSEP, FY(800) , XBAR(800) 
COMMON/ FLOW/ RCORE, CINF, VINF, RMIN, BDISP, NOTOCH, AGECHK 
COMMON/MISC/RUNNO, NPLOTS, NCOMNT, COMNTS 
COMMON /MISC1/NHICUP 
CCCCCCCCCEGCCECEGCECECCCECECCCCCCCCCCECEEGECEE CCE CEECECCCECECCCCCCCC CE eec aumm 
C 
G WRITES SUMMARY INFORMATION TO AN UNFORMATTED FILE. 
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NTSTOP=NT 
CAs GEITiM (ith, IMIN, 1. SEC,1100TH) 
CALL GETDAT (IYR, IMO, IDAY) 
ITIME=IHR*100+IMIN 
I DATE=IMO* 10**6+IDAY*10**4+IYR 
WRITE (M) IDATE, ITIME 
WRITE (M) NCOMNT 
IF (NCOMNT.EQ.0) GO TO 40 
DO 25 J=1,NCOMNT 
25 WRITE (M) COMNTS (J) 
40 WRITE (M) RUNNO, DELT, RCORE, GVMIN, GVOMIN, BDISP 
WRITE (M) NHICUP 
WRITE (M)NPLOTS 
WRITE (M) NNB 
WRITE (M) VINF, XMAX, DX, NDX 
WRITE (M) NTSTOP 
DO 400 I=1,NTSTOP 
400 WRITE (M)T(1), (GSHED(I,NB) , GLOST (I,NB) ,NB=1,NNB) ,XSEP(I),YSEP(I), 
1 WSEP(E) > XVORT (1) YVORT (1) FY({1), ABAR (1) 
RETURN 
END 


Se eee CCCCCCCCCCECCCCCCCCCCCECCCCCCCCCCCCCCCECCCCECCCECECCCCCCCCCECCCC 
mere weeece]CCCOCCCCECCCCCCCCCCCECCCCCCCCCCCCCCCCECCCECCCCCCECCCCCECECCCC 


SUBROUTINE NEWBL (XVORT, XSEP,USEP) 

PrOMENSTON ETA(121),U0(121),F0(121),S0(121), YOT (121) , VOR(121) 
COMMON/INTEG/MT, ITER,NM,NN, IBL, IFL 

COMMON /REAL/DEL, GAM, PSI, HI, H1I2,A21,A22,B21,B22,SUM,SF,DEL1,H,T 
COMMON/ REAL1/ETAMAX, DN 
COMMON/ALG/E11 (121) ,E21(121),F1(121) ,F2(121) , FMN2 (121) 
COMMON/SOLN/UM(121) ,FM(121),S5(121) ,UMN1 (121), FMN1 (121) , UMN2 (121) 
COMMON/ FINITE/XILE, VINF 
COMMON/CONST/ZONE, ZERO, ZFAC, ZI, ZPI, PI, TWOPI, PI90, PI180, OV2PI 
COMMON/SURFCE/Q (200) , PTOTAL (200) , PVORT (200) , PVELO(200), 


1 DX, NDX, XMAX, X(200) , XXI (500) , TTAU (500) , BLDISP (500), 
2 BLMOM (500) ,MSEP, FY (800) , XBAR(800) 
COMMON/MISC1/NHICUP 


um eemrmeceeceCCCCCCCCCCCCCCCCCCCECCCCCCCCCCCECCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


Gimiemmel Cre? Cr cs C2 6) CP CO) 


THIS SUBROUTINE INTEGRATES THE LAMINAR BOUNDARY-LAYER EQUATIONS FOR 
PLANE, STEADY, INCOMPRESSIBLE FLOW. IT EMPLOYS A TRANSFORMATION 

OF VARIABLES THAT IS BASED ON THWAITES’ ANALYSIS OF THE MOMENTUM- 
INTEGRAL EQUATION, AND EMBODIES A TWO-TERM BLASIUS SERIES TO START 
THE CALCULATION. THREE-POINT TRAILING DIFFERENCES ARE SUBSEQUENTLY 
USED FOR SECOND-ORDER ACCURACY IN XI. THE FLOW IS THAT UNDER A LINE 
VORTEX PLACED AT XI=0.0, WHERE THE LEADING EDGE OF THE PLATE IS AT 
XI=XILE.THIS CORRECTS ERRORS IN BOOK VERSION OF THE PROGRAM, BASED 
UPON COMMUNICATIONS WITH SHERMAN. (VISCOUS FLOW, BY FREDERICK S. 
SHERMAN, MCGRAW-HILL PUBLISHING CO., 1990). 


REAL MOM, ATEMP (12) 
GOMPLEX ZONE, ZERO, ZFAC, ZI, ZP1 
EXTERNAL FOFX 


Mummri@emme CCCCCCCCCCCCCCCECCCCCCCCCCCCCCCCCCECCCCECECECCCCCCCCCCCCCCECEC 


& 


C ASSIGN VALUES TO CONSTANTS 


225 


AILE=0.00001 

NN=81 

EPSLON=.0010 

HPI=0.50*PI 

ETAMAX=6.50 

NM=NN-1 

RNM=NM 

DN=ETAMAX/RNM 

HI=1.0/DN 

HIZ=Hi*HI 

A21=.50 

A22=HI 

B21=.50 

B22=-HI 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCECCCC CC CCC ECC CCE CE CSE eee 
e 
C SET UP ETA(N) AND FIRST-GUESS INITIAL PROFILES OF UM, S, ANDERE 
c THESE WILL BE REFINED BY ITERATION. PARABOLIC FIRST GUESS. 
e 


DO 160 Nain 
ETA (N)=(N-1) *DN 
G=ETA (N) /ETAMAX 
UM (N) =G* (2.0-G) 
S(N)=2.0* (1.0-G) /ETAMAX 
FM (N) =G*G* (1.0-G/3.0) *ETAMAX 
UMN 1 (N) =UM (N) 
FMN1 (N) =FM(N) 
UMN2 (N) =UM(N) 
FMN2 (N) =EM(N) 

10 CONTINUE 
CCCCCCCCCCCCCCCCCECCECCCCCCCCCCCCECCECCCCCCEECECECEEEECECEEECECECEECECCCeeeee 
G 
e CALCULATE UO AND FO OF STARTING PROFILE 
fe 


CALL THOMAS 
DO 31 N=1,NN 
UO (N) =UM (N) 
FO (N) =EM (N) 
SO (N)=S (N) 
31 CONTINUE 
SFO=SE 
DELO=DEL1 
SUMO=SUM 
CCCCCCCCCCCCCCECCCCCCCECCCCCCECCCCCCCCECCCCC CECE CCC Oe ee ee CCC ECC CeCe See cee 
Cc 
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& CALCULATE. Ul AND Fl IN THE BLASIUS-SERIES REPRESENTATION 


Elie} =0 0 
E21 (1)=0.0 
F1(1)=0.0 
F2(1)=0.0 
ITER=10 
MT=1 
M=1 
IBL=1 
CALL THOMAS 
32 CONTINUE 
mamemeceCCCCCECCCCCCCCCCCCCECCCCCCCCCCCCCCCCCCECCECECCCCCECCECCCECCECCCCC 
e 
e INITIALIZE XI. SET THE INITIAL SIZE OF DXI. 
Cc 
MI-A1LE 
DXI=0.0031250 
TE i XVORT GT .0. 0) Dx —=0-. 006250 
TH OC/ORT Gr. 0.5) DXI=0 -012500 
IF (XVORT.GT.1.0) DXI=0.025000 
Pe pioVORT ocr. 270) Dk i=0- 050000 
MemememecccCCCCCCCCCCCCCCCGECCCECCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
c 
‘es COMBINE UO AND Ul, ETC, TO GET INITIAL PROFILES. 
‘or 
IF (ABS(XI).LT.EPSLON) XI=EPSLON 
Z=XI-XILE 
ZZ=XI-XILE+DXI 
ZZZ=XI-XILE+2.0*DXI 
ALIMIT=XILE 
BLIMIT=XI 
CALL ROM(ALIMIT, BLIMIT, EPSLON, ANS, FOFX, ATEMP) 
G2=ANS 
0, 
V=UTAN (XX) 
VSQR=VtV 
V6=VSQOR*VSOQOR*VSOR 
G2=G2*2.0/V6 
DVDXI=DERIV (XX) 
IF (G2.GT.0.0)GO TO 30 
NHICUP=NHICUP+1 
G2=ABS (G2) 
WRITE(6,50)NHICUP 
30 DYDETA=SORT (G2) 
DEL=G2* DVDXI 
GAM=1.0-2.0*DEL 
SUM=0.0 
DO 33 N=2,NN 
UMN2 (N) =U0 (N) +Z*UM(N) 
FMN2 (N) =FO (N) +Z2*FM(N) 
UMN1 (N) =U0 (N) +ZZ*UM(N) 
FMN1 (N) =FO (N) +Z2* FM(N) 
UM (N) =U0O (N) +222*UM(N) 
FM (N) =FO (N) +2Z2Z*EM (N) 
S (N) =SO (N) +Z222*S (N) 


72] 


SUM=SUM+0.50*DN* (UM(N) +UM(N=-1) ) * (12 0-025070M(N)+UM(N— ies 
33 CONTINUE 

DEL1=ETA (NM) -EM (NM) 

SF=UM (2) *HI+.500* DN*DEL 

UM(1)=0.0 

Pri O70 

S(l)=sF 

T=SF*SUM 

H=DEL1/SUM 

DIS PL=DYDETA* DEL1 

MOM=DYDETA* SUM 

TAU=V* SF/DYDETA 

XXI (1) =xXI 

BLDISP (1) =DISPL 

BLMOM (1) =MOM 

TTAU (1) =TAU 
CCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCCCCECECCCCECECEC ECC EEC CE CECE ECCC CRS am 


START THE MARCHING LOOP. SPECIFY DXI FOR VARIOUS RANGES OF XI. 
CALCULATE QUANTITIES THAT DEPEND ONLY ON XI. 


qQaAAaAN 


IBL=2 
M=1 
1000 M=M+1 
MT=M 
DXIB4=DXI 
XDIFF=XI-XVORT 
DxI=0.05 
IF (XDIFF.GE.-2.00) DXI=0.0250 
IF (XDIFF.GE.-1.00) DXI=0.01250 
IF (XDIFF.GE.-0.50) DXI=0. 006250 
IF (XDIFF.GE.-0.00) DXI=0. 0031250 
IF (DXI.NE.DXIB4) IFL=1 
XI=XI+DxXI 
XX=XI 
V=UTAN (XX) 
DVDXI=DERIV (XX) 
Blair i 
CALL ROM(ALIMIT, BLIMIT, EPSLON, ANS, FOFX, ATEMP) 
G2=ANS 
VSQR=V*V 
V6=VSQOR*VSOR*VSOR 
G2=G2*2.0/V6 
IF(G2.GT.0.0)GO TO 44 
G2=ABS (G2) 
NHICUP=NHICUP+1 
WRITE (6,50)NHICUP 
50 FORMAT(' THWAITES INTEGRAL < 0, OCCURRENCE NUMBER',I4) 
44 DYDETA=SORT (G2) 
DEL=G2* DVDXI 
GAM=1.0-2.0*DEL 
PSI=G2*V/DXI 
CCCCCCCCCECCECCCCCCCCCCCCCCCCCCCCCCCECCEECECECECCCEGEEECECCECECCECECECCECCCCCEuem aE 
e 
Cc SET WALL BOUNDARY CONDITIONS. 
@ 
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0.0 
F2(1)=0.0 
P@eeeceecceccceee CCCECCCCCCCCCCCCCCCECCCCECESCCCECECCCECECCCECCCCCECCCCECCCE 
C 
@ SET ITERATION COUNTER. CALCULATE PROFILES AT NEW VALUE OF XI. 
c 
ITER=1 
CALL THOMAS 
MmeeerPee CCCOCCECCCCCCCCCCCCCCCCCCCCCECOCCCECCCCCEECCECCCCCCCCCECCCCECCCEC 
c 
c UNWIND TRANSFORMATION 
‘S 
DISPL=DYDETA* DELI 
MOM=DYDETA* SUM 
TAU=V* SF/DYDETA 
BLDISP (M)=DISPL 
BLMOM (M) =MOM 
ext (M)=xX1 
TTAU (M) =TAU 
mem@eceeecCCOCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCCCCCCCCCCCCCCCCECCCCCCCCCCCCC 
C 
C LOGIC TO DETERMINE SEPARATION POINT, BASED UPON ZERO 
c SHEAR CRITERION FOR STEADY FLOW. 
C 


mea i(M.LE.3) GO TO i101 
me eeeeeee Ce CCCCCcceccceccececcccccceccceccccccccceccccccccccCCCCCCCCCCCCC 
& 
c IF TAU CHANGES TO NEGATIVE VALUE, INTERPOLATE 
Cc 
ieee TAU (M)*TTAU(M-1) .LT.0.0) GO To 80 
Beeweeenee CCCCECCCCCECCECEECECECCCCCCCCCCCCCCECCCCCCCCCCECECCCCCCCCCCCCCCC 
C 
c IF MOST RECENT TAU IS < THAN PREVIOUS, CONTINUE MARCH DOWNSTRM 
e 
Peet TtTAU (M) .LT.TTAU(M-1)) GO TO 101 
eeeeeerece CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCE 


WE'VE NOW REACHED A POINT WHERE THE LATEST TAU IS GREATER THAN 
THE PREVIOUS VALUE. IF TWICE THE DISTANCE BETWEEN PREVIOUS 

TWO POINTS ADDED TO THE MOST RECENT INDICATES THAT SHEAR 
SHOULD'VE GONE NEGATIVE, IGNORE THE MOST RECENT AND EXTRAPOLATE 
FROM THE LAST MONOTONICALLY DECREASING VALUE. IF THE EXTRAPOLATED 
VALUE ISN'T NEGATIVE, WE'RE PROBABLY ON THE UPWARD SLOPE BEFORE 
TAU PEAKS OUT. 


Crea) Cy CY Cera) 0) 


IF (TTAU (M-1)-2.0* (TTAU (M-2) -TTAU (M-1)).GT.0.0) GO TO 101 
XSEP=XXI (M-1)+ (XXI (M-1) -XXI (M-2) ) *TTAU (M-1) / (TTAU (M-2) -TTAU (M-1) ) 
USEP=UTAN (XSEP) 
M=M-1 
MSEP=M 
RETURN 

80 XSEP=XXI (M-1) + (XXI (M) -XXI (M-1) ) *TTAU (M-1) / (TTAU (M-1) -TTAU (M) ) 
USEP=UTAN (XSEP) 
M=M-1 
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MSEP=M 

RETURN 
©] © ©; Of Oi Gt G ©: ©] ©; ©; G: GG; GG; @; &; O; G; GO: @: ©! O/ OO OO! O! O: © O[) OO! OOO! @; GO OO; OOO O10) 0) OG] (SG Oe Ce Gee eee 
Cc 
C IF PRINCIPAL VORTEX IS UPSTREAM OF LEADING EDGE, AND CALCULATION 
Cc HAS CARRIED ON TO XI=0.5, ASSUME NO SEPARATION WILL OCCUR 
© 


101 IF ((AVORT lr 0. 0) “AND. (XXI(M) GE. 075) )Goeregrve 
XCALC=XXI (M) -XVORT 
IF { (AVORT (GE 0 0) SAND. (XCALG AGT 21. 0) J GCOntoO mgs 
ececeececcecccccccecccceccccccecececcccccccCCCCCCCECCC CCE CE CCCCECECCC eee 


IF VORTEX HAS PASSED THE LEADING EDGE AND CALCULATION HAS 
PROCEEDED ONE NONDIMENSIONAL UNIT DOWNSTREAM OF THE VORTEX, 
ASSUME NO SEPARATION WILL OCCUR. 


OnG@ OC) QO) 


102 IF (M.LT.500) GO TO 1000 
CCCCCCCCCCCCCCCCCCECCECCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCECECE CC ECCECE SEs 
&; 

& SEPARATION IS ASSUMED NOT TO HAVE OCCURRED IF XSEP=USEP=0. 0 
C 
103 USEP=070 
XSEP=0.0 
MSEP=M 
RETURN 
END 
Oj ©; Gi Oi : Oi GO ©; Oi G1 Oi OO; OH OI Oi Gi Oi Oi Ot O] Oi Of Gi Os Of Ol Of G1 O_O! G: 0 / G1 O; G1 O( O16: GG OO GOSS OSS SO ooo C ooo 
CCCCCCCCCECCCCECCCECCCCECCCCCCCCCCCCCCCECCE CECCECEECEEEEE CEC ECC CECE CCCS SE ae 
FUNCTION FOFX (X) 
CCCCCCCCCCCCCECCCCCCCCCCCCCCCCCCECCECECCCCCCCE CCE CCEECECE CECE CEC CCECE CCE ae 
C 
& THIS IS THE INTEGRAND INVOLVED IN THWAITES' METHOD 
& 
V=UTAN (X) 
VSQR=V*V 
V5=VSOR* VSOR*V 
FOFX=V5 
RETURN 
END 
Ot Of Of Gf Oi : Oi Gi Ci C/O: Gi Oi GO! OO] Oi O} C/O O{ OO] O O1 GOL B/ 8] & 6 OO) O[ BOL OG OOO. G1O/O Clo Geeeeecce Veeco 
CCCCCCCC CCC CCCCCCECCECCCECCCCCCCCCCCECCCCCCCEC CCE CCE EC ECCCEC CC CECE CCE EEEeE 
FUNCTION DERIV (X) 
IMPLICIT COMPLEX (C,2Z) , INTEGER (I-N) 
COMMON / VORTEX/ZV (300, 4) ,CV(300, 4) ,GV(300,4) ,GV0(300,4), 
1 DGDT (300, 4) ,AGE(300,4) ,GSHED(800,4) ,GLOST(800,4), 
2, GVMIN, GVOMIN, NNV (4) ,NNB, NVMAX 
COMMON/CONST/ ZONE, ZERO, ZFAC, ZI, ZPI, PI, TWOPI, P190, P1180, OV2PI 
CcecececccececcccccccececceceeeCccCcCCCCCCCCCCCCCCECCECE CEC CCE CCCCECCC CCE See 
S 


C TAKES DERIVATIVE OF VELOCITY DISTRIBUTION AT THE PLATE 
( 

DVDX=0.0 

DO 1200 NB=1,NNB 

NV2=NNV (NB) 


LF (NV27 Ei GO TO 2200 
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DO 1100 NV=1,NV2 
XADIFF=X-REAL (ZV (NV,NB) ) 
YDIFF=-AIMAG (ZV (NV, NB) ) 
XRSO=ADIFF*XDIFFE 
PoO-. DIFF" YDIFFE 
SUM=XS0O+YSO 
DVDX=DVDX+2 .0*GV (NV, NB) *XDIFF*YDIFE/ (PI*SUM* SUM) 
1100 CONTINUE 
1200 CONTINUE 
DERIV=DVDX 
RETURN 
END 
eeemecee CoccCCCCCCCCCCCCCCCCCCCCCCCCECCCCECCCCCCCCCCCCCCCCCCECCCCCCCCE 
Rmbeweeeccec CCCCCCCCCCECCCCCCCCCCCCCCECCCCCCECECCECCCCCCCCECCCCCCCEECCC 
SUBROUTINE ROM(ALIMIT, BLIMIT, EPSLON, ANS, FUNCT, ATEMP) 
EQUIVALENCE (I,N) 
DIMENSION ATEMP (12) 
ime meme ce CLEC CCCCCCCCCCCCCCCCCCCCCCECCCCCCCCCECCECCCCCCCCCCECCCCCECCECCCC 


Cc 
& NUMERICAL INTEGRATION ROUTINE AS OBTAINED FROM COMPUTER 
ec APPLICATIONS OF NUMERICAL METHODS, BY SHAN S. KUO, ADDISON- 
& WESLEY PUBLISHING CO., 1972.USER MUST CODE FUNCTION SUBPROGRAM 
Cc FUNCT (X). THE UPWARD DIAGONAL ELEMENTS ARE COMPUTED AND STORED 
Cc IN ATEMP. 
Cc 
I=1 


ATEMP (1) =0.5* (FUNCT (BLIMIT) +FUNCT (ALIMIT) ) 
Beem meeececeCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCECCEC 
& 
& INTERVAL (WIDTH) MUST NOT BE ZERO. 
S 

WIDTH=BLIMIT~ALIMIT 

ZL=WIDTH 
memeewe cme CCCCCCCCCCCCECCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCECE 
& 


e BOWER USED TO COMPUTE 2** (1-1) 
& JJ USED TO CONTROL DO LOOP 12 BELOW. 
Gc 
POWER=1. 
JJ=1 
mee mweeeece CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCCCCCC 
& 
Cc BEGIN THE OUTERMOST LOOP 
Cc 
pate r=i+1 


ANS=ATEMP (1) 
Mebereemecceee CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCCCECCCCCCCCCCCCCECCCC 
& 
Cc FOLLOWING 10 STATEMENTS COMPUTE A NEW A(I,1) BY TRAPEZOIDAL RULE. 
& BON. (12.198) 
& 


TEMPL=ZL 
ZL=0.5* ZL 
POWER=0.5* POWER 
A=ALIMIT+ZL 
SUM=0.0 


gE) 


eZ 


DOs k2) JCOUNT=) ad 
SUM=SUM+FUNCT (X) 

A=X+TEMPL 

ATEMP (1) =0)5*ATEMP (1-1) SUM* POWER 


CCCCCCCCCCCCCCECCECCCCCCCCCCCCCCECCECEECECCECECCCEC CE ESE CEC CCEC ES SA eae 


Cc 


2: 
ec 
& 


6 


30 


NEXT 9 STATEMENTS USED TO CALCULATE A(N,M) BY EON. (12.19A). 
M IS NOD EQUAL Te 1. 


R=1.0 
NM1=N-1 

DO 16 KOUNT=1,NM1 
KK=N-KOUNT 

R=R+R 

R=R+R 

ATEMP (KK) =ATEMP (KK+1) + (ATEMP (KK+1) -ATEMP (KK) ) / (R-1. ) 
M=KOUNT+1 

CONTINUE 
DELTA=ABS ( (ATEMP (1) /ANS)-1.) 
IF (DELTA-EPSLON) 40, 40,30 
I=) oo 

GO TO 711 


6 40 ANS=ATEMP (1) *WIDTH 


RETURN 
END 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCECCCCCEC CCC CCECCE CEC CECE CECESSSS ea 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCECCCCCE CCC CECE CCC CC CEC CE ECC EC CCC CEC 


SUBROUTINE THOMAS 

COMMON /INTEG/MT, ITER,NM,NN, IBL, IFL 

COMMON /REAL/ DEL, GAM, PSI, HI, H12,A21,A22,B21,B22,SUM,SF,DEL1,H,T 
COMMON /REAL1/ETAMAX, DN 

COMMON /ALG/E11 (121); E21 (121) , Fl (120), B22 EZ ea 
COMMON/SOLN/UM (121), FM(121),S(121),UMN1 (121), FMN1 (121) , UMN2 (121) 
COMMON / FINITE/XILE, VINF 


CCCCCCCCCCECCCCCCCECCCCCCCCCCCCCCCCCCCCCCCCCC CEC ECC CCC ECE CEC CE CEES e ee 


Osis) 20) 001 


© 
Oo 
© 


10 


> 


IMPLEMENTATION OF THE THOMAS ALGORITHM TO SOLVE COEFF MATRIX. 
THIS CORRECTS TEXT VERSION OF THE PROGRAM, BASED UPON COMMENTS 
RECEIVED FROM SHERMAN. PROGRAM MODIFIED FOR SEMI-INFINITE 
FLAT PLATE. 


START THOMAS ALGORITHM. TRIANGULARIZE. 


DO 20 N=2,NM 
IF (1 FL. BOs coe loelo 


A=1.50 
B=-2.0 
c=.50 

GO TO 15 
A=4.0/3.0 
B=-1.50 
C=) 70 60 


X=GAM* FM (N)+PSI* (A* EFM(N) +B* FMN1 (N) +C*FMN2 (N) ) 
Y=-2.0*DEL*UM(N)-PSI* (2.0*A*UM(N) +B*UMN1 (N) +C*UMN2 (N) ) 
IF (IBL.EQ.1) X=EM(N) 
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IF (IBL.EQ.1) Y=-2.0*UM(N) 

Al1=HI2-.50*HI*% 

C11=HI2+.50*HI*X 

Bl1l=-2.0*HI2+Y 

B12= (GAM+A* PSI) *S(N) 

PEW LehOad). BlZ=3.0-.5 {N) 

D1=GAM* FM (N) *S (N) -DEL* (1.0+UM(N) *UM(N) )+PSI*A* (S(N) *FM(N)- 
1 UM (N) *UM (N) ) 

feeb eo. 1) Dl=4,.0*XILE/ (12 0+xXILE*XILE)* 
1 (1.0-UM(N) *UM(N)-2.0*FM(N) *S(N) ) 

G11=A11*E11 (N-1)+B11 

G12=B12 

G21=A21*E11 (N-1) +A22*E21 (N-1) +B21 

G22=B22 

DENO=G11*G22-G12*G21 

GI11=G22/DENO 

GI12=-G12/DENO 

GI21=-G21/DENO 

GI22=G11/DENO 

EN) =—Gll1* cll 

B21 (N) =-Gi2l*cll 

Fl (N) =GI11* (D1-Al11*Fl (N-1) ) -GI12* (A21*F1 (N-1) +A22*F2 (N-1) ) 

F2 (N) =GI21* (D1-Al11*F1 (N-1) ) -GI22* (A21*F1 (N-1) +A22*F2 (N-1) ) 

20 CONTINUE 


Mem CCC CCECCCECCCCCC CCC CCC CCCEC CE CC ECECCECCECCECCCCECCCCCCCCECCCCCCCCCCC 
e SET OUTER BOUNDARY CONDITION. 
(S 
UM (NN) =1.0 
Pee IBL.EO.1) UM(NN)=0.0 
Bee eee eee CCCCCCCCCCCCECCCECCCCCCCCCCECCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCEC 
C 
& BACK-SUBSTITUTE TO FIND UM AND FEM. 
c 
DO 30 N=1,NM 
K=NN-N 
PMiK) —EL2 (KK) *UM(Kt1)+F1(K)} 
Ppt oK) —=E2 00K) *UM(K+1) +F2(K) 
50 CONTINUE 
FM (NN) =FM(NM) +.50*DN* (UM (NN) +UM(NM) ) 
MmeeeeeeeecCCCCCCCECCCCCCCCCCCCCCCECCOCCCCCCCCECCCCCECCCCCCCCCCCCCCCCCCCCCC 
a 
€ UPDATE S(N). 
c 
DO 40 N=2,NM 
San) =. 50*H1I*~ (UM(N+1)-UM(N-1) ) 
40 CONTINUE 


mmm ee @emeecCCCCCCCCCCCCccceccecceccccececccecceccecccecececceccececcccccceccccc 
& 
Cc ADVANCE AND CHECK ITERATION COUNTER. 
S 
ITER=ITER+1 
ie ir BO.1.AND. ITER; LT.10) GO TO 1000 
Pee aM GT: 1c AND. ITER. LT.3) GO TO 1000 
SummemeeececooecCe CCCCCCCECCECCECCCCCCECEECECCCCCCCECECCCCCCECECCCCECCCECCCCC 
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CALCULATE B.-L. THICKNESSES, SHAPE FACTORS; Alber 
FRICTION. UPDATE UMN] AND FMN1. 


C201 iQ) 


SUM=0.0 

DO 50 N=2,NM 
SUM=SUM+0.50* DN* (UM(N)-+UM(N=12))* (1. 0=0.50* (UM(N) +UM(Noia 
UMN2 (N) =UMN1 (N) 
FMN2 (N) =FMN1 (N) 
UMN 1 (N) =UM (N) 
FMN1 (N) =FM(N) 

50 CONTINUE 

SF=UM (2) *HI+.500*DN* DEL 
Si) =si 
DEL1=ETAMAX-DN-E™M (NM) 
H=DEL1/SUM 
T=SF* SUM 

IFL=0 

RETURN 


END 
CCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCCCCCCCCCCCCCCCCCC CCE CCC CC CCC CCS eee eee 


CCCCCCCCCCCCCECCCCCCCCCCCCCCECCCCCCCCCCCCCECECECCCCCCC ECC CCE CCC EC eee 
SUBROUTINE EXPLOD (NB, GAMMA, ZCNTR, RMAX, IGAMMA) 
IMPLICIT COMPLEX(€,2)> INITEGER(I-N) 
COMMON / VORTEX/ZV (300, 4) ,CV(300, 4) ,GV(300, 4) ,GV0(300,4), 
Be DGDT (300,4) ,AGE(300,4) ,GSHED(800,4) ,GLOST(800,4), 
2 GVMIN, GVOMIN, NNV (4) , NNB, NVMAX 
COMMON/TIMES/DELT, T (800) ,NT,NTMAX, NTSTOP 
COMMON /CONST/ZONE, ZERO, ZFAC, ZI, ZPI, PI, TWOPI, PI90, P1180, OV2PI 
DIMENSION R(4),NVRING(4) 
CCCCCCCCCCCCCCCCCCCCECCCCCECCCCCCCCCCCE CCC CC CC Ce ee eee CC eee eee CC CeCe eee 


DISCRETIZES PRIMARY VORTEX; METHOD SELECTABLE BY USER: 


IF IGAMMA=1: POLLING VORTICITY DISTRIBUTION WITHIN RMAX 
=2: RANDOM VORTEX DISTRIBUTION AND STRENGTH WITHIN RMAX 
=3: RANDOM DISTRIBUTION, EQUAL STRENGTHS WIHIN RMAX 
=4: EVENLY RANDOM DISTRIBUTION (I.E., NO CONCENTRATION 
AT CENTER), EQUAL STRENGTHS WITHIN RMAX 


20 Fa 1 IA Gm ak Ve Ge 1 es wa ae 


AGEO=AGE (1, NB) 
DGDTO=DGDT (1, NB) 
GV00=GVO (1, NB) 
IF (IGAMMA.EQ.1)GO TO 100 
IF (IGAMMA.EO.2)GO TO 2000 
IF (IGAMMA.EQ.3)GO TO 4500 
IF (IGAMMA.EQ.4)GO TO 6000 
GO TO 9999 
CCCCCCCCCC ECC CCC CC CCC COC CCC ee eee ee eee eee ee ee eee ee CC CC CC eee eee ear 
G 
G DISTRIBUTION AND STRENGTHS AS PER POLING 
s 
100 R(1)=0.0 
R (2) =0.50* RMAX 
R(3)=0.75* RMAX 
R(4)= RMAX 
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NVRING (1) 
NVRING (2) 
NVRING (3) 
NVRING (4) 
NV=1 
ZV (1,NB)=ZCNTR 
GV (1,NB) =GAMMA/4.0 
DO 1000 NRING=2, 4 
THETA=0. 0 
IF (NRING.EQ.2) GRING=3.0*GAMMA/8.0 
IF (NRING.EQ. 3) GRING=2.0*GAMMA/8 .0 
IF (NRING.EQ. 4) GRING=1.0*GAMMA/8. 0 
DTHETA=TWOPI/NVRING (NRING) 
DO 500 I=1,NVRING (NRING) 
NV=NV+1 
THETA=THETA+DTHETA 
XV=R(NRING) * COS (THETA) 
YV=R(NRING) *SIN (THETA) 
ZV (NV, NB) =ZCNTR+CMPLX (XV, YV) 
GV (NV, NB) =GRING/NVRING (NRING) 

900 CONTINUE 

1000 CONTINUE 


1 
8 
v2 
24 


NNV (NB) =NV 
GO TO 8888 
amen CCCCCCCECCCCCCECCCCCCCCCCCCCECCCCCCCCCCECECCCCECECCCCCCECCE 
cS 
‘es RANDOM LOCATIONS AND RANDOM STRENGTH 
Cc 
2000 CALL SEED (RNDSTIMESEED) 
GSUM=0. 0 


@MAX=0.2*DELT/0.125 

NEQSTR=INT (GAMMA/GMAX ) 

NTOPS=5*NEQSTR 
meemememeeeccCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 


NOTE: CONCENTRATION OF VORTICITY AT CENTER. IF A MORE EVEN 
DISTRIBUTION OP VORTICITY 13 DESIRED, USE A CARTESIAN 
PLACMENT SCHEME, DISCARDING VORTICES WHICH FALL OUTSIDE 
A CIRCLE OF RADIUS=RMAX. 


CD eG al > aw Iai 


DO 3000 NV=1,NTOPS 
CALL RANDOM (RADIAL) 
RADIUS=RMAX* RADIAL 
CALL RANDOM (ANGULR) 
THETA=TWOPI*ANGULR 
XV=RADIUS*COS (THETA) 
YV=RADIUS* SIN (THETA) 
ZV (NV, NB) =ZCNTR+CMPLX (XV, YV) 
IF ( (GAMMA-GSUM) .GT.GMAX) GO TO 2500 
GV (NV, NB) =GAMMA-GSUM 
GO TO 4000 

2500 CALL RANDOM(SIZE) 
GV (NV, NB) =GMAX*SIZE 
GSUM=GSUM+GV (NV, NB) 

3000 CONTINUE 
WRITE (6, 3500) NB 
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3500 FORMAT (* NOT ENOUGH VORTICITY IN SHEETONUIMIBER 712) 
4000 NNV (NB) =NV 
GO TO 8888 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCECCCCCE CEC CCE CCC CCE Cee Ce eee eee ae 


C RANDOM LOCATION AND EQUAL STRENGTH 


4500 CALL SEED (RNDSTIMESEED) 
GVORT=0.2*DELT/0.125 
NVORTS=INT (GAMMA/GVORT) 
NVORTS=NVORTS+1 
GVORT=GAMMA/NVORTS 
DO 5000 NV=1,NVORTS 
CALL RANDOM (RADIAL) 
RADIUS=RMAX* RADIAL 
CALL RANDOM (ANGULR) 
THETA=TWOPI*ANGULR 
XV=RADIUS*COS (THETA) 
YV=RADIUS* SIN (THETA) 
ZV (NV, NB) =ZCNTR+CMPLX (XV, YV) 
GV (NV, NB) =GVORT 
5000 CONTINUE 
NNV (NB) =NVORTS 
GO TO 8888 
6000 CALL SEED (RNDSTIMESEED) 
GVORT=0.2*DELT/0.125 
NVORTS=INT (GAMMA/GVORT) 
NVORTS=NVORTS+1 
RMAX 2=2 . 0* RMAX 
GVORT=GAMMA/NVORTS 
ZCORNR=ZCNTR-CMPLX (RMAX, RMAX) 
DO 7000 NV=1,NVORTS 
6500 CALL RANDOM(XV) 
CALL RANDOM (YV) 
ZVRTX=CMPLX (XV, YV) +ZCNTR 
ZDIFF=ZVRTX-ZCNTR 
IF (CABS (ZDIFF) .GT.RMAX)GO TO 6500 
ZV (NV, NB) =ZVRTX 
GV (NV, NB) =GVORT 
7000 CONTINUE 
NNV (NB) =NVORTS 
8888 DO 9000 NV=1,NNV(NB) 
AGE (NV, NB) =AGEO 
DGDT (NV, NB) =DGDT0*GV (NV, NB) /GAMMA 
GVO (NV, NB) =GV00*GV (NV, NB) /GAMMA 
9000 CONTINUE 
9999 RETURN 
END 
cccccceccececececcececcececcecececcccececeeecceeceeececeeccececceececes aaa 
ccecccccocecececececcececccccccecececcccccccccCCCeCeeeeeeCeccceecce ee ee amma 
SUBROUTINE AMALG (NB, IDOIT, ZAMALG, GAMALG) 
IMPLICIT COMPLEX (C,Z),INTEGER(I-N) 
COMMON/VORTEX/ZV (300, 4), CV(300, 4) ,GV(300,4) ,GV0(300,4), 
1 DGDT (300, 4) ,AGE(300, 4) , GSHED (800, 4) , GLOST (800, 4), 
Z GVMIN, GVOMIN, NNV (4) , NNB, NVMAX 
COMMON/CONST/ZONE, ZERO, ZFAC, ZI, ZPI, PI, TWOPI, PI90, PI180, OV2PI 
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pee CCCCCCccece ce ccecece Cec cccecC ec ecee cece Ce CCe CECCC CCCCCCCCCECCCCECECCCCCE 


OD ae Me ES i @ ie ia @) 


1000 


9000 
3010 
3999 


CONDUCTS CENTROID CALCULATION TO AID IN TRACKING VORTEX CLUSTER 
TRAVEL. CODE WRITTEN TO ALLOW ACTUAL AMALGAMATION IF REQUIRED 
IN FUTURE PROGRAM MODIFICATIONS. 


IDOIT=1: MERELY CENTROID CALCULATION 
=2: FULL AMALGAMATION 


BENNY (NB).LT.0)GO TO 9000 
GAMALG=0. 0 

ZMOMNT=ZERO 

AGEPRD=0. 0 

DGDTSM=0. 0 

GVOSUM=0.0 

DO 1000 NV=1,NNV (NB) 
GAMALG=GAMALG+GV (NV, NB) 
ZMOMNT=ZMOMNT+GV (NV, NB) *ZV (NV, NB) 
Me(IDOIT.-NE.2)GO TO 1000 

GV (NV,NB)=0.0 
AGEPRD=AGEPRD+AGE (NV, NB) *GV (NV, NB) 
DGDT SM=DGDTSM+DGDT (NV, NB) 
GVOSUM=GV0SUM+GV0 (NV, NB) 
CONTINUE 

ZAMALG=ZMOMNT / GAMALG 

Peer oOlLT.NE.2)GO TO. 9999 

NNV (NB) =1 

ZV (1,NB) =ZAMALG 

GV (1,NB) =GAMALG 

AGE (1,NB) =AGEPRD/GAMALG 

GV0 (1,NB) =GVOSUM 

DGDT (1,NB) =DGDTSM 

Gomro 9999 

WRITE (6, 9010)NB 

FORMAT (' NO VORTICES IN SHEET ',12,' WHEN TRYING TO AMALGAMATE' ) 
RETURN 

END 


Pewe@memmececeCCCCCCCCCECCCCCCCCCCCCCCCECCECCCECCCCCCCECCCECECCCCCCCCCCCECC 
eee mmmeceCCCCCCCCecececcecececcececccceccececcececcececcececcccecceccccce 
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APPENDIX C. PLTPLT.FOR 


meee eee ceCCCC CEC CUCUCCC COC CCCCCECCECCCCCCCCCCCCCCCECECECECCCECCECCCECCECE 
Meee eoce CC COCCCCCCeCeeCCCCECCCCUCECECCCCCCCCCOCCCCCCCECCCCCCCCCECCCCCCC 


2 


IMPLICIT COMPLEX (C,Z),INTEGER(I-N) 
INTEGER*2 K,JGRK, JSMPLX 
CHARACTER RUNNO*3, KEYCHR*1,TITLE* 80 
CHARACTER*1 COMNTS (61,5), VORANS, PRSANS, SMOOTH 
REAL PLOT1(800) , PLOT2 (800) , CHRSZ 
COMMON /VORTEX/ZV (300, 4) ,CV(300, 4) ,GV(300,4),GV0(300,4), 
DGDT (300, 4),AGE(300, 4) ,GSHED(800, 4) ,GLOST(800,4), 
GVMIN, GVOMIN, NNV (4) , NNB, NVMAX 
COMMON / SAVE/XVORT (800) , YVORT (800) ,XSEP (800) , YSEP (800) , USEP (800) 
COMMON /TIMES/DELT,T (800) ,NT, NTMAX, NTSTOP 
COMMON/CONST/ZONE, ZERO, ZFAC, ZI, ZPI, PI, TWOPI, PI90, PI180,0V2PI, 
FOURPI 
COMMON /SURFCE/Q (200) , PTOTAL (200) , PVORT (200) , PVELO(200), 
DX; NDX; AMA, x (200). x1 | 500) TAU (500) , BLDISP (500), 
BLMOM (500) ,MSEP, F (200) , XBAR(200) 
COMMON / FLOW/ RCORE, CINF, VINF, RMIN, BDISP, NOTOCH, AGECHK 
COMMON /MISC/RUNNO, NPLOTS, NCOMNT, COMNTS, IDATE, ITIME 
COMMON /MISC1/NHICUP 


meemeeeeeeCCCCCCCCCCCCCCCCCCCCCCCCECCCCCECCCCCCCCCCCCCCCCECCECCCCCCCCCECCCE 


PUNO ai GO Me ee eee ae mie ke | 


100 


THIS CODE WAS WRITTEN TO READ UNFORMATTED DATA PROVIDED BY 
PROGRAM PLATE.FOR (APPENDIX B). IT WAS WRITTEN AND COMPILED 

IN MICROSOFT FORTRAN POWERSTATION VERSION 1.0, WITH INGRAF 
LIBRARY ROUTINES PURCHASED FROM SUTRASOFT. THE USER IS PROMPTED 
FOR VARIOUS RUNTIME ROUTINES WHICH ASK WHETHER OR NOT PLOT 
SMOOTHING AND/OR TABULAR PRINTOUT OF VORTEX INFORMATION, AND/OR 

A TABULAR PRINTOUT OF VARIOUS PARAMETERS UTILIZED IN SEPARATION 
POINT PREDICTION. WRITTEN BY CAPT MICHAEL R. MAIXNER, DEC 1994 
IN CONJUNCTION WITH DOCTORAL DISSERTATION FROM NAVAL POSTGRADUATE 
SCHOOL, MONTEREY, CA. 


PI=4.*ATAN(1.) 

WRITE(6,*) (' INPUT THREE DIGITS FOR RUN NUMBER’) 
READ (5, 100) RUNNO 

MPRS=9 

MVOR=10 

FORMAT (A3) 

OPEN (7, FORM='UNFORMATTED', FILE=RUNNO//'FILM') 
OPEN (8, FORM='UNFORMATTED', FILE=RUNNO//'RECAP') 


Meme e@ececCCCCCCCCCECcCccccccccecccccceccceccccceccceececcececcecccccccce 


C 


as i aa 


GET SUMMARY INFORMATION TO ALLOW ACCESS TO INDIVIDUAL 
PICTURE FRAMES 


CALL SUMARY(8) 
BETA=VINF/ (1.+VINF) 


BmpeemmececcCCCCCCCCCCcecceccceccceccceccecececceccccecccecccecceccccce 


c 
S 
es 


SEE IF SMOOTHED PRESSURE DATA ARE DESIRED. 


WRITE(6,*) (' DO YOU WANT DATA SMOOTHED? ' ) 
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READ (5,190) SMOOTH 
IF (SMOOTH.EQ. 'y') SMOOTH='Y' 


CCCCCCCCCCCCCCCCCCECCECCCECCE CEC ECE CEEECECE CEC CE CC EE CECE CCC ECCE ECCS eee 


O)1O ee me 


190 


200 


DO YOU WANT TO OBTAIN A PRINTOUT OF ONLY VORTEX POSITIONAL 
INFORMATION WITHOUT ALL OF THE PRESSURE, SHEAR, MOMENTUM 
THICKNESS, BELG. ih FORMAT LON. 


WRITE(6,*) (' DO YOU WANT A VORTEX POSITION PRINTOUT?') 
READ (5,190) VORANS 

WRITE(6,*)(' DO YOU WANT A PRESSURE PRINTOUT?') 
READ (5,190) PRSANS 

FORMAT (Al) 

IF (VORANS.EQ. 'y') VORANS='Y' 

IF (PRSANS.EQ.'y') PRSANS='Y' 
IF((PRSANS.EQ.'Y') .OR. (VORANS.EQ.'Y'))GO TO 200 
GO TO 300 

IF (VORANS.EQ.'Y') OPEN (MVOR, FILE=RUNNO//'VOR') 
IF (PRSANS.EQ.'Y') OPEN (MPRS, FILE=RUNNO//'PRS') 


CCCCCCCCCCCCCCCCECCCECCCCCCCE CECCE CECE CECC CECE CEE CE CECE CCECE CE CCC eam 


@ 
c 
Se 


300 


BEGIN TO PRINT POSITION INFORMATION, TIMSTEP By TIMESTEP 


CALL 


MOVIE (7) 


REWIND (7) 
CCCCCCCCCCCCCCCCCCCECECCCCECCECCCCE CCE CCC CC CEC CC Ce CC eC CCC Ce CC eee eens 


BEGIN THE FIRST PAGE OF PLOUTING 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


XX=9., 
YY=7. 


CALL 
CALL 


GOPEN ('VGA2\0', 'CON:\0',K) 
GETENT ( ' COMPLEX2. FNT\0', JGRK) 
GETFENT ('SIMPLEX1.FNT\0O', JSMPLX) 
SETENT (JSMPLX) 
NEWMNID( O20, 0.0,9.0,5.07,2) 
NEWPEN (2) 

Mighy 6 sta1(6)) 

WERAME 

0 

0 

PLIMIEE (0-570-070-2554. 0.2) 
SETPU 


AXAMIN=0.0 


AMAX= 
(XMAX.LT.1.0) XMAX=1.0 


ie 


T(NISICE) 


YMIN=-6.0 
YMAX=6. 0 
CHRSZ=0.1 
THROTR=0. 75*CHRSZ 
HALFSZ=0.5*CHRSZ 
OTRSZ=0- 25" CHRaZ 
SUBSZ=THROTR 
TICMAJ=0.1 
TICMIN=TICMAJ/2.0 
CALL CSI ZE(CHRSZ;7 CHR SZ) 
DWNSPC=-1.4 
XLINE=1.0 
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pee Ce CCC CCE Ce CCECCCE CECE CCCC CCE CECCECECCCCCCCECCECCCCCCCECCECCCCCCC 
Cc 
.e BEGIN BY WRITING THE LEGEND FOR THE SUMMARY PLOT 
& 
CALL CLIPOF 


CALL MOVE(2Z.0,1..5) 

CALL QCPOS (XHOME, YHOME) 
CALL NEWPEN (7) 

CALL LTYPE(1) 

CALL RLINE(-XLINE, 0.0) 
CALL MOVE (XHOME, YHOME) 
CALL LBLORG (2) 

CALL SETENT (JGRK) 

CALL LABEL(CHAR(71)//'\0') 
CALL CMOVE(1.0,0.0) 
GeuL CSIZE(SUBSZ, SUBSZ) 
CALL SETENT (JSMPLX) 
CALL LABEL('SHED\0O') 
Grit CSIZE(CHRSZ, CHRSZ) 
CALL MOVE (XHOME, YHOME) 
CALL CMOVE (0.0, DWNSPC) 


CALL QCPOS (XHOME, YHOME) 
CALL NEWPEN (7) 

CALL LTYPE(2) 

CALL RLINE(-XLINE, 0.0) 
CALL MOVE (XHOME, YHOME) 
CALL LBLORG (2) 

CALL SETFNT (JGRK) 

CALL LABEL(CHAR(71)//'\0') 
CALL CMOVE(1.0,0.0) 
2a CSIZE(SUBSZ, SUBSZ) 
CALL SETFNT (JSMPLX) 
CALL LABEL('LOST\0O') 
ees CSIZE(CHRSZ, CHRSZ) 
CALL MOVE (XHOME, YHOME) 
CALL CMOVE (0.0, DWNSPC) 


CALL QCPOS (XHOME, YHOME) 
CALL NEWPEN (3) 

CALL LIYPE(3) 

CALL RLINE(-ALINE, 0.0) 
CALL MOVE (XHOME, YHOME) 
CALL LABEL('U\0') 

Gai CMOVE(1.0,0.0) 
Gai CSIZE(SUBSZ,SUBSZ) 
CALL LABEL('SEP\0') 
CALL CSIZE(CHRSZ, CHRSZ) 
CALL MOVE (XHOME, YHOME) 
CALL CMOVE (0.0, DWNSPC) 


CALL QCPOS (XHOME, YHOME) 
CALL NEWPEN (4) 
CALL LTYPE(4) 
CALL RLINE(-XLINE, 0.0) 


241 


CALL 
CALL 
CALL 


MOVE (XHOME, YHOME) 
LABEL( 10G= 110") 
CMOVE (526; 02 G)) 
CSIZE(SUBSZ,2UESZ) 
LABEL ('SEP\0' ) 

CSI ZE( GARs2,eRRoZ) 
MOVE (XHOME, YHOME) 
CMOVE (0.0, DWNSPC) 


OCPOS (XHOME, YHOME) 
NEWPEN (5) 

EIVee (3) 

RLINE (-XLINE, 0.0) 
MOVE (XHOME, YHOME) 
LABEL(' (X\0') 
CMOVEK 2.0700) 
CSIZE (SUBSZ, SUBSZ) 
LABEL ('SEP\0O') 
CMOVE(6-0, 020) 
CSIZE(CHRSZ, CHRSZ) 
CMOVE (03070. 5) 
LABEL ('-X\0') 
CMOVE (2. 0), 070} 
CSi2E(SUBS2Z, SUBS) 
LABEL ('VORT\O') 
CMOVE (4.0,0.0) 

EST ZE(GHRS2, CHRSZ) 
CMOVE (020, 0.0) 
LABEL (') \0') 

MOVE (XHOME, YHOME) 
CMOVE (0.0, DWNSPC) 


CLIPON 


SCALE (XMIN, XMAX, YMIN, YMAX) 


SETSU 
SETDEG 


CCCeeccececcccceCccCCCCCCCCCCECCCCECCCCC CCE CCC CCC CCC eee eee eee ee ee reas 


& 
c 
C 


2000 


SET UP THE AXAES 


sO. 23 3 (10) 
NEWPEN (2) 


ATSIZE (TICMAJ , TICMAJ, TICMIN, TICMIN) 
AXES (XMAX, SPCNG, DELORD, NSPCS) 

XAXIS (XMIN, XMAX, 0.0, SPCNG,NSPCS) 
YAXIS (YMIN, YMAX,0.0,0.2,5) 


LBLORG (8) 
LBLDIR (UL) 


Y=YMIN 

CALL MOVE (XMIN, Y) 
CALL) CMOVE(—1.0,.0 0) 
CALL NLABEL(Y,-1) 
Y=Y+1.0 
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Pe eee ts) sO TO 2000 
CALL LBLORG (6) 
CALL LBLDIR(0.0) 


AX=AMIN+DELORD 

6000 CALL MOVE (XX, 0.0) 
CALL. CMOVE(0.0,—1.0) 
IF (XMAX.GE.2.0) CALL NLABEL (XX, -1) 
IF (XMAX.LT.2.0)CALL NLABEL(XX, 1) 
XX=XX+DELORD 
IF (XX.LE.XMAX) GO TO 3000 


mumm@ee seec CCC CECCCCECeCCeCCCCCECECECCECCCCECCCCCCCCECCCCCCECCCCCCCCCCE 
C 
C LABEL THE X-AAIS 
G 
CALL MOVE (XMAX, 0.0) 
CALL LBLORG (2) 
CALL LBLDIR(0.0Q) 
PALL CMOVE(2.0,0.0) 
CALL LABEL('TIME\0') 


peeremmmre OCOCCCCCCCCCCCCCCCCOCECCCCCCECCCCCCCCCCCCCCCCCCECECCCCCCECC 
. 

c SCALE THE SEPARATION INFORMATION RELATIVE TO MAJOR VORTEX 

C BOS. TION 
c 


HO-Ss100 I=1,NTSTOP 
Slee LOT] (1) =(XSEP(1I)-XVORT (I) )*1.0 


ee ee eC CCCCCCCECCCCCCCeececccceececcccccccececececececcccccccccccc 
a 
ie Peel THE CURVES 
C 
eu LITYPE (1) 
CALL NEWPEN (7) 
CALL NOZERO(T,GSHED (NT, 2) ,NTSTOP) 


Sei LIYPE (2) 
CALL NEWPEN (7) 
efi NOZERO(T,GLOST (NT, 2) ,NISTOP) 


wei LIYPE (3) 
CALL NEWPEN (3) 
CALL NOZERO(T,USEP,NTSTOP) 


mee @wew eece CCCCECCCCCCCCCCCCCCCCCCCCCCCCCCCeccececccecccececcecceccccccccce 
c 

C SCALE THE VERTICAL POSITION INFORMATION FOR THE SEPARATION 

Cc POLNT 
c 


Be sll0 I=l1,NTSTOP 
eeeemerorr (1)=YSEP(1I)*100.0 


meeemececc CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCECCCCECCCCCCCCCCCC 
& 
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CONTINUE PLOTTING 


CALL 
CALL 
CALL 


CALL 
CALL 
CALL 


LTYPE (4) 
NEWPEN (4) 
NOZERO (i see, NISTOE) 


LIYPES} 
NEWPEN (5) 
NOZERO (77 PLOniy Nis lOr) 


CCCCCCCCCCCCCECCECEECCCCCCCCCCCCCCCECECCCECCCCEE CECE CEC CCC EC CCSECS Seem 


M100 


ADD NEW FRAME TO FIRST PAGE WITH ALL INFORMATION ON IT 
FOR SUMMARY. 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


NEWHNDO207 >, 0;9.0, 15,2) 
SETFENT (JSMPLX) 
NEWPEN (2) 

MEWS Gena) (0), 

WERAME 
PRIMI? (O20 7020, 9307 27.2, 
SCALE (0707920, 020725) 
SETSU 

MOVE UTS, 2-2) 

QOCPOS (XHOME, YHOME) 
LBLORG (1) 


CCCCCCCCCCCCCCECCECCECCCCCCCCCCCCECCCCCCCCCE CECE CCC CESECE CECE See 


C 
C 
c 


DOES 


TITLE="RUN NUMBER: 


CALL 
CALL 
CALL 
CALL 
CALL 


'//RUNNO//'\0! 
CSIZE(CHRSZ,1.5*CHRSZ) 

LABEL (TITLE) 

CMOVE (16.0, 0.0) 

LABEL (' DATE: \O') 

CMOVE (10.0,0.0) 


RIDATE=IDATE 


CALL 
CALL 
CALL 
CALL 


NLABEL (RIDATE, -1) 
EMOVEr(S = 0) 0 0) 

LABEL (' TIME: \0")} 
CMOVE ULC. 000) 


RITIME=IT IME 


CALL 
CALL 


NLABEL (RITIME, -1) 
CS1IZE (CHRSZ, CHRSZ) 


CCCCCCCCCCCCCCCECCCCCCCCEECEETC GC CEC EC CCE CCE CCE CCC CSET SC Ce CCC CCC eee ee 


C 
c 
e 


RETURN FOR SECOND AND SUBSEQUENT LINES 


CALL 
CALL 
CALL 


MOVE (XHOME, YHOME) 
CMOVE (0.0, DWNSPC) 
QOCPOS (XHOME, YHOME) 


DO 3150 J=1,NCOMNT 


CALL 
CALL 
CALL 


LABEL (COMNTS (1, J) ) 
MOVE (XHOME, YHOME) 
CMOVE (0.0, DWNSPC) 


3150 CALL QCPOS (XHOME, YHOME) 
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pee ee mee eel CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCCCCCCCCCCECCE 


& 
& 
cS 


YCOLI=YHOME 
“~COL1=XHOME 


SETENT (JGRK) 

LABEL (CHAR (68) //'\0') 
CMOVE (1.0, 0.0) 

SETENT (JSMPLX) 

RABEL t=\0') 

CMOVE (2.0, 0.0) 

NLABEL (DELT, 7) 

MOVE (XHOME, YHOME) 
CMOVE (0.0, DWNSPC) 
QCPOS (KHOME, YHOME) 


LABEL ('U\0') 

CMOVE (1.0, 0.0) 
CSIZE(SUB852, 50852) 
CMOVE (0. 0,-0.5) 
LABEL ('INF\O') 
EMOVE(S. 0,025) 
C214 (CHRSZ, CHRSZ) 
LABEL ('=\0') 

CMOVE (1.0,0.0) 
NLABEL (VINF, 3) 
MOVE (XHOME, YHOME) 
CMOVE (0.0, DWNSPC) 
OCPOS (XHOME, YHOME) 


SETFENT (JGRK) 

LABEL (CHAR (98) //'\0') 
CSIZE(CHRSZ,CHRSZ) 
SETENT (JSMPLX) 

CMOVE (2.0,0.0) 
RABEL { '=\0") 
EMOVE(2:0,0.0) 

NLABEL (BETA, 7) 

MOVE (XHOME, YHOME) 
CMOVE (0.0,-2.0*SUBSZ) 
OCPOS (XHOME, YHOME) 


START SECOND COLUMN 


meOLZ=YCOLI 
XCOL2Z=XCOL1+3.0 


MOVE (XCOL2Z, YCOLZ) 
OCPOS (XHOME, YHOME) 
PABEL( ™R\O*) 

BMOVE (1).0,0.0) 
CSUZE (SUBSZ, SUBSZ) 
GCHOVE (0.0 ;-0%5) 
LABEL ('MIN\O') 
CMOVE (320,30. 3) 
€elget CHiRsZ, CHRSZ) 
LABEL ('=\0') 


CCCCCCCCCECCCECECECECCEECCCECCECCCCCECCCECECCCCCEC CCC CC ECCECCC EC ER RSC eee 


Cc 
& 
eS 


CALL 
CALL 
CALL 


CMOVE.( 070 2.0) 
NLABEL (RMIN, 7) 
MOVE (XHOME, YHOME) 
CMOVE (0.0, DWNSPC) 
OCPOS (XHOME, YHOME) 


LABEL ('R\O') 

CMOVE (iC. 0.0} 
CSIZE(SUBSZ, SUBSZ) 
CMOVE (0.0,-0.5) 
LABEL ('CORE\0') 
CMOVE (4.0,0.5) 
CSIZE(CHRSZ, CHRSZ) 
LABEL('=\0') 
CMOVE(1)-0,020) 
NLABEL (RCORE, 6) 
MOVE (XHOME, YHOME) 
CMOVE (0.0, DWNSPC) 


LABEL ('BDISP=\0') 
CMOVE (6.0,0.0) 
NLABEL (BDISP, 2) 


START THIRD COLUMN 


YCOL3=YCOL1 
XCOL3=XCOL2+3. 0 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


MOVE (XCOL3, YCOL3) 
QOCPOS (XHOME, YHOME) 
SETENT (JGRK) 

LABEL (CHAR(71)//'\0') 
CMOVE (1.0,0.0) 
SETENT (JSMPLX) 
CSIZE(SUBSZ, SUBSZ) 
CMOVE(0.0,-0.5) 
LABEL ('INCIDENT\O') 
CMOVE(8.0,0.5) 
CSIZE(CHRSZ,CHRSZ) 
LABEL ('=\0') 

CMOVE (2.0,0.0) 
NLABEL (PI,5) 

MOVE (XHOME, YHOME) 
CMOVE (0.0, DWNSPC) 
QCPOS (XHOME, YHOME) 


SETFNT (JGRK) 

LABEL (CHAR(71)//'\0O') 
CMOVENGiIN..0 C30} 

SETFENT (JSMPLX) 
CSiZE(SUBSZ, 5UBSZ) 
CMOVE( C0. OF 0.2) 

LABEL ('MIN\O') 
CMOVE(3. 07 0s) 

CoiZe (GHksa, CHko4, 
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CALL LABEL('=\0') 

CABG CMOVE(2.0,70.0) 
CALL NLABEL(GVMIN, 7) 
CALL MOVE (XHOME, YHOME) 
CALL CMOVE (0.0, DWNSPC) 
CALL QCPOS (XHOME, YHOME) 


CALL SETFNT (JGRK) 

CALL LABEL (CHAR(71)//'\0') 
CALL CMOVE(1.0,0.0) 

CALL SETFNT (JSMPLX) 

CALL CSIZE(SUBSZ, SUBSZ) 
CALL CMOVE(0.0,-0.5) 

CALL QCPOS (XHOME1, YHOME1) 
CALL LABEL('NASCENT\O') 
CALL MOVE (XHOME1, YHOME1 ) 
CALL CMOVE (0.0, DWNSPC/1.5) 
CALL LABEL ('MINIMUM\0') 
CALL MOVE (XHOME1, YHOME1) 
CALL CMOVE(7.0,0.8) 

CALL CSIZE(CHRSZ, CHRSZ) 
CALL LABEL('=\0') 

CALL CMOVE(2.0,0.0) 

CALL NLABEL (GVOMIN, 7) 
CALL MOVE (XHOME, YHOME) 
GALL CMOVE(0.0,-2.0*SUBSZ) 
CALL QCPOS (XHOME, YHOME) 


eee eC OCC CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCCCECCECCEC 
C 
C See IF PRINTOUT IS DESIRED 
e 
CALL INKEY (KEYCHR, K) 
Mahe YCHR. EO. 'p )KEYCHR='P* 
me kheEYCHR.EO.'n*) KEYCHR='N' 
IF (KEYCHR.EQ. 'a') KEYCHR='A' 
MB KE YCHR.EO.°P*).OR. (KEYCHR.EO.*A"))GO TO 5450 
Mahe YCHR.EO.'0O')GO TO 5460 
Mali YCOHR.EO.'O*).OR. (KEYCHR.EO.‘*q'))GO TO 17860 
GO TO 5460 


5450 CALL PGRAF(4, 'PRN:\0') 


5460 NFRAME=10 
fe eter CCOCCCCCCCCCCCCCCCCOCCCCCCOCCCECCCCCCCCCOCCOCCCCCCCCCCCCCE 


G 
@ MAXIMUM OF FOUR FRAMES PER PAGE 
Cc 
MAXFRM=4 
mugeoemeeclCCCCCCCCECCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCCCCCCC 
Cc 
o @bOSE THE FIRST PLOT 
S 


CALL GCLOSE 
ememememroeeceCececeCeCCCCCCCeCCCCCECCCECCECCCCCC CECE CECE CCECECCECCCCCCCCC 


c 
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5500 


See) 0) 


PLOT, FRAME BY FRAME 


DO 9999 I=1,NPLOTS 
NFRAME=NFRAME+1 

IF (NFRAME.LE.MAXFRM) GO TO 5500 

NFRAME=1 

XCNTR=4.8 

YENTR=3 7 

XWIDTH=1.0 

YWIDTH=1.0 

IF ((NFRAME.EQ.1).OR. (NFRAME.EQ.2)) YO=YCNTR 
IF ((NFRAME.EQ.3).OR. (NFRAME.EQ.4)) YO=0.0 
IF ((NFRAME.EQ.1).OR. (NFRAME.EQ.3)) X0=0.0 
IF ((NFRAME.EQ.2).OR. (NFRAME.EQ.4)) XO=XCNTR 
IF (NFRAME.GT.1)GO TO 5550 

CALL GOPEN{ 'VGA2\0", 'CON?\0) 2K) 

CALL GETFNT('COMPLEX2.FNT\0', JGRK) 

CALL GETFNT('SIMPLEX1.FNT\0', JSMPLX) 

CALL SETFNT (JSMPLX) 

CALL NEWWND (XO, YO, XCNTR, YCNTR, 2) 

NPEN=3 

CALL NEWPEN (NPEN) 

CALL LTYPE(0) 

CALL MOVIE(7) 

CALL WFRAME 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCCCCCCCE CGE ECE ECECCEC EEC CCS 


e 
S 
C 


SoleUE URPER PLOr 


X1=0.1 

XLENTH=4 . 0 

YI=2 510 

YLENTH=1.7 

RATIO=XLENTH/ YLENTH 

CALL PLIMIT (Al, Yl, XLENTH, YLENTH, 2) 
CALL SETPU 

CALL CSIZE(CHRSZ, CHRSZ) 


CCCCCCCECCECCCCCECCCCCCECECCCCECECECCCCCCE CE CEC CCEEE CECE CECECES SS 


‘e 
s 
& 


2260 


DO VORTEX ECSITICNSELOTs 


XMIN=-2.0 
YMIN=0.0 
XMAX=8 . 0 
YMAX= (XMAX-XMIN) /RATIO+YMIN 


CALL SCALE (XMIN, XMAX, YMIN,1.03* YMAX) 
CALL SETSU 

CALL SETMRK (1) 

DO 5560 NV=1,NNV(1) 

PLOT 1 (NV) =REAL (ZV (NV, 1) ) 

PLOT2 (NV) =AIMAG (ZV (NV, 1) ) 

CALL SCATER(PLOTI, PLOTZ, NNV (1))) 


CCCCCCCCCCCCCECCEECCEE CC CCCCCCCECCCC ECE CCEC CECE CCC ECC ECC ECCECC EEE CCCEC EC eee 
€ 
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DRAW ARROW ON PRINCIPAL VORTEX ONLY IF MAJOR VORTEX IS AN 
AMALGAMATED ONE 


12-0 QO 


IF(NNV(1).GT.1)GO TO 6450 
RADIUS=0.5 
RAD=RADIUS*XLENTH/ (XMAX~XMIN) 
CALL CIRCLE ( PLOT] (1) , PLOT2(1),RAD) 
FACTOR=3.0 
HEIGHT=0.1* FACTOR 
WIDTH =0.1* FACTOR 
ZONTR= ZV(1,1)+CMPLX(.9*RADIUS, 0.0) 
GLOP ZCNTR+CMELA(O.0,HEIGHT/ 2.0) 
ZLEFT= ZCNTR+CMPLX (-WIDTH/2.0, -HEIGHT/2.0) 
ZRIGHT=ZCNTR+CMPLX ( WIDTH/2.0, -HEIGHT/2.0) 
PLOT1 (1) =REAL (ZTOP) 
PLOT1 (2) =REAL (ZLEFT) 
PLOT1 (3) =REAL (ZRIGHT) 
PLOT 2 (1) =AIMAG (ZTOP) 
PLOT 2 (2) =AIMAG (ZLEFT) 
PLOT2 (3) =AIMAG (ZRIGHT) 
CALL FPOLY (NPEN, PLOT1, PLOT2, 3) 
6450 DO 6500 NV=1,NNV(2) 
PLOT] (NV) =REAL (ZV (NV, 2) ) 
PLOT2 (NV) =AIMAG (ZV (NV, 2) ) 
6500 CONTINUE 
CALL SETMRK (4) 
CALL CLIPON 
CALL SCATER(PLOT1, PLOT2,NNV(2) ) 
Sabi CLIPOF 
CALL SETMRK (0) 


Wie eee ee ees CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCE 
Cc 
ce LABEL PLOT WITH TIME AND TIMESTEP NUMBER. 
e 

CALL CLIPOF 

CALL LBLORG (1) 

CALL SETDEG 

CALL LBLDIR(0.0) 

erbis CSLZE(. /75>*CHRSZ, CHRSZ) 

Gab MOVE (3.0,-1.0) 

CALL QOCPOS (XHOME, YHOME) 

CALL LABEL('T=\0') 

CALE, CMOVE(Z2.0,0.0)} 

CALL NLABEL(T (NT) , 4) 

CALL MOVE (XHOME, YHOME) 

CALL CMOVE(9.0,0.0) 

CALL LABEL('NT= \0"') 

CALL CMOVE(3.0,0.0) 

RNT=NT 

CALL NLABEL(RNT,-1) 

Seb CSIZE(CHRSZ, CHRSZ) 

CALL CLIPON 


GmmmmmmeaecCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCceceeccececececececccecccec 
& 
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CCCCCCCCCCCCCCCCCCCE CCC CC COC OCC COC CC CCC CC Ce ee CC eC ee Ce eC eee eee eter ene 


C 
e 
& 


7000 


7500 


LABEL PLOT WITH VORTEX CLUSTER SUMS 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CSIZEe Seen SZ, CHRSZ) 
MOVE (32073 .8) 

SETENT (JGRK) 

LABEL {CHAR( 71) 7/7" \0") 
CMOVE (0 0.0) 

CSiZE SUESZ 2 SoUBS 4) 
SETENT (JSMPLX) 

LABEL ('+\0') 
CMOVE(1.0,0.0) 
CSIZE(. / >> CHRSZ Ge sz) 
LABEL ('=\0') 

CMOVE (1.0, 0.0) 


SIGMAP=SIGMA (1) 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


NLABEL (SIGMAP, 3) 
CMOVE (7 07 0.0) 

SETFENT (JGRK) 

LABEL (CHAR(71)//'\0') 
CMO VE (lO), OG) 

CSIZE (SUBSZ, SUBSZ) 
SETENT (JSMPLX} 
LABEL('0\0') 
GNMevEt).0, 0-0) 
Con. o* CHRSZ, Corsa) 
LABEL ('=\0') 
CMOVE (Ea Ur 0.0) 


SIGMAM=SIGMA (2) 


CALL 


NLABEL (SIGMAM, 3) 


DO THE AXES 


CALL 
CALL 


ire (0) 
NEWPEN (NPEN) 


TICMAJ=0.1 
TICMIN=TICMAJ/2.0 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


Y=0.0 


CALL 
CALL 
Ais 


(YoNE 0. 0} 


ATSIZE(TICMAJ, TICMAJ, TICMIN, TICMIN) 


XAXIS (XMIN, XMAX,0.0,0.2,5) 


YTSIZE(TICMAJ, TICMAJ, TICMIN, TICMIN) 


VWAXIS (020, AX, 0207 0-2, 
YRXIS (0:30, YMIN 0 2070.2 75) 
LBLORG {8 ) 

LBLDIR(0.0) 


MOVE G20; 1) 
EMOVE (=2-20, 0.0) 
CALL NLABEL(Y,-1) 


Y=Y+1.0 


gH 
CALL 
CALL 


(Y.LE. YMAX) GO TO 7000 


LBLORG (6) 
LBLDIR (0.0) 


AR=AMIN 


CALL 
CALL 


MOVE (2e2.0;..0) 
CMOVE( U.0, 1} 
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IF(XX.NE.O.0) CALL NLABEL(XX,-1) 
AX=XX4+1.0 
IF (XX.LE.XMAX) GO TO 7500 


eee ceCCCCCCCccececceccececccccCccccccccccccCcCcccccCCcCCCCCCCCCCCCCCCCCC 
& 
c MARK THE SEPARATION POINT WITH A SMALL VERTICAL LINE. 
ec 

Mo eE(NT).E0.0.0)GO TO 7510 

CALL LBLORG (4) 

YHT=0. 4 

CALL MOVE (XSEP(NT),0.0) 

Gri LINE (ASEP (NT), YHT) 

CALL MOVE(ASEP (NT) , YRT) 

CALL LABEL('S\0') 
meee memecc CCCCCCCCCCECCCCCCCECCCCCCCCCCCECCCCCCCCCCCCCCCCCCCCCCCCCCCCCE 
& 


e Meer RESSURE, VELOCITY, AND OTHER PLOTS. 
& 
7510 CALL SETPU 
rl=0.2 
YLENTH=1.6 


piememmee  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 
Cc 
¢ KEEP VALUES FOR X1 AND XLENTH FROM VORTEX POSITION PLOT. 
@ 

CALL PLIMIT (X1,Y1,XLENTH, YLENTH, 2) 

QMIN=-2.0 

OMAX=BETA* 1.5 

IF (QMAX.LT.2.0) QMAX=2.0 

PMIN=—-BETA**2-0.5 

PMIN=1.2* PMIN 

PMAX=2 . 0 

YMIN=PMIN 

YMAX=QMAX 


CALL SCALE (XMIN, XMAX, YMIN, 1.03* YMAX) 
eA SETSU 

GHRSZ—0.1 

eA CS1ZE(CHRSZ, CHRS2Z) 

DWNSPC=-1.4 

XLINE=1.0 


Pa o0 se ONT INUE 
Mme eewece CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCCCCCCCCCCCCCCCCE 
c 
& DemineE CURVE PLOTTING 
& 
GAs CLIPON 
ie SMOOTH.EO.'Y') GO TO 7560 


@CarL LTYPE(2) 
CALL NEWPEN (2) 
CALL APOLY (X, PTOTAL, NDX) 


GALL SETSU 


251 


ioO0 


Gao 


CALL 
CALL 
CALL 


LEY PE) 
NEWPEN (7) 
APOLY (X, QO, NDX&) 


GO TO Tec! 


CALL 
CALL 


CALL 
CALL 
CALL 


CALL 
CALL 
CALL 
CALL 


CALL 


PSMUTH (QMIN, OMAX, Q 72 ,NDX) 
PSMUTH (PMIN, PMAX, PTOTAL, PTOTAL, NDX) 


DRE (2) 
NEWPEN (2) 
APOLY (X, PTOTAL, NDX) 


SETSU 

LIYen 
NEWPEN (7) 
APOLY (X,0,NDX) 


FORMOM 


CCCCCCCCCCCCCCCCCECCCCECCECCECCCCCECCCCEC CC CECE CCC CCC Ce CC CeCe Cee eas 


e 
© 
e 


7580 


7600 


SCALE THE CENTER OF PRESSURE AND FORCE DATA. 


XBARMX=5 . 0 
FMAX=— PMIN*X (NDX) 
IF (FMAX. LT. XBARMX) FMAX=XBARMX 


DO 7580 L=1,NDX 
XBAR (L) =XBAR (L) * YMAX/ FMAX 
F(L) =F (L) *YMAX/FMAX 


LP ( SMOOTH. EO." %)iGOnlTOn7 600 


CALL 
CALL 
CALL 


CALL 
CALL 
CALL 


LPs (3) 
NEWPEN (3) 
APOLY (X, XBAR, NDX) 


LTYPE (4) 
NEWPEN (4) 
APOLY (X, F, NDA) 


GO TO 7650 


CALL 
CALL 


CALL 
CALL 
CALL 


CALL 
CALL 
CALL 


PSM Oy a 
Porn 1.0, 


eur Ey F, NDX) 
6.0,XBAR, XBAR, NDX) 


LIYE (Ss) 
NEWPEN (3) 
APOLY (X, XBAR, NDX) 


LTYPE(4) 
NEWPEN (4) 
APOLY (X, F, NDX) 


7650 CONTINUE 


252 


CALL PRNTIT (MPRS,MVOR, PRSANS, VORANS) 
pee eee CUceee c cece cCececcceccceceeccceccccecccccccccceccccccccccecccc 
c 
C DO THE AXES 
C 

CALL LTYPE (0) 

CALL NEWPEN (NPEN) 

TICMAJ=0.5*TICMAJ 

TICMIN=TICMAJ/2.0 

CALL ATSIZE(TICMAJ, TICMAJ, TICMIN, TICMIN) 

CALL XAXIS(0.0,XMAX,0.0,0.2,5) 

CALL YTSIZE(TICMAJ, TICMAJ, TICMIN, TICMIN) 

BIGEST=YMAX 

BIGEST=MAX (BIGEST, ABS (YMIN) ) 

CALL AXES (BIGEST, SPCNG, DELORD, NSPCS) 

SPCNG=0.1 

NSPCS=5 

CALL YAXIS (0.0, YMAX,0.0,SPCNG, NSPCS) 

CALL YAXIS(0.0, YMIN, 0.0, SPCNG,NSPCS) 

CALL LBLORG (8) 

CALL LBLDIR(0.0) 

CALL CSIZE(HALFSZ, CHRSZ) 

Y=0.0 

7700 CALL MOVE(0.0,Y) 

GALL CMOVE(-1.0,0.0) 

CALL NLABEL(Y,-1) 

Y=Y+DELORD 

pe (Y.LE.YMAX) GO TO 7700 

Y=0.0 

p22 0N CALL MOVE(0.0,Y) 

CALL CMOVE(-1.0,0.0) 

CALL NLABEL(Y,-1) 

Y=Y—-DELORD 

IF (Y.GE.YMIN)GO TO 7710 

CALL LBLORG (6) 

CALL LBLDIR(0.0) 

XX=0.0 
7750 CALL MOVE (XX, YMIN) 

RX=XX+1.0 

IF (XX.LE.XMAX) GO TO 7750 


CALL LBLDIR(0.0) 
CALL LBLORG (2) 
CALL AXES (FMAX, SPCNG, DELORD, NSPCS) 
CALL YAXIS (0.0, YMAX, XMAX, SPCNG* YMAX/FMAX, NSPCS) 
CALL CSIZE (HALFSZ, CHRSZ) 
Yy=0.0 
YLABEL=0. 0 
7800 CALL MOVE (XMAX, Y) 
GAL CMOVE(1.0,0.0) 
CALL NLABEL(YLABEL, -1) 
Y=Y+ (YMAX) * DELORD/ FMAX 
YLABEL=YLABEL+DELORD 
IF(Y.LE.YMAX)GO TO 7800 
ei CSIZE(CHRSZ, CHRSZ) 
Bmemeweee CCCCCCCCCCCCCCCCCCCCCCCCCCCccceccceccccccccccccccccccccccccc 


253 


CIO 30) 


LABEL THE VERTICAL AXES 


CALL 
CALL 


CALL 


SETDEG 

MOVE (0.0, (YMAX+YMIN) /2.0) 
CMOVEi= 2.2, 0...0) 
LBLDIR(90.0) 

LBLORG (4) 

NEWPEN (7) 

LABEL('U, \0') 

NEWPEN (2) 

LABEL ('p\0") 


MOVE (XMAX, . 7* YMAX/2.0) 
CMO VE 25170 .0) 
LBLDIR(270.0) 
LBLORG (7) 

NEWPEN (4) 
LABEL('F,\0') 
LBLORG (1) 

NEWPEN (3) 

LABEL ('X\0') 
CMOVE( 070-220) 
CSIZE(SUBSZ, SUBSZ) 
LABEL ('COP\0') 


CCCCCCCCCCCCCCCCCCCCC CCC CCC Ce CeCe CC Cee eC CC Cee CC eee Cee Ce ee Cran 


C 
G 
Cc 


7810 


PUT THE LEGEND IN THE CENTER OF THE PAGE 


CALL 


18) ee 


LBLDIR(0.0) 
EO.NPLOTS) GO TO 78190 


IF (NFRAME.NE.MAXFRM)GO TO 9999 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL 
CALL 
CALL 


NEWPEN (2) 

Diy er) 

NEWWND (XCNTR-XWIDTH/2.0, YCNTR-YWIDTH/2.0,XWIDTH, YWIDTH, 2) 
FILWND (0) 

WFRAME 

PGbtMET (0.0, 0 0, 2W2 Da, Ywtbih 2) 

SCALE (0.0, XWIDTH, 0.0, YWIDTH) 

SETSU 

LBLORG (2) 


MOVE (0.62*XWIDTH, 0.8* YWIDTH) 
NEWPEN (7) 

LTY2E (1) 

QOCPOS (XHOME, YHOME) 

RLINE (-XLINE, 0.0) 

MOVE (XHOME, YHOME) 

CMOVE (XSHIFT, 0.0) 
LABEL('U\O') 

MOVE (XHOME, YHOME) 

CMOVE (0.0, DWNSPC) 


NEWPEN (2) 


Bier (2) 
OCPOS (XHOME, YHOME) 
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7850 
7860 
29:99 


7650 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
Ne 


ROLNER=* LINE 0..0) 
MOVE (XHOME, YHOME) 
CMOVE| ASHIFT, 0.0} 
LABEL('p\0') 

MOVE (XHOME, YHOME) 
CMOVE (0.0, DWNSPC) 


NEWPEN (3) 

LYYPE(3) 

OCPOS (XHOME, YHOME) 
RLINE( =XGINE, 0.0) 
MOVE (XHOME, YHOME) 
CMOVE(ASHLFT,.0.0) 
LABEL ('X\0') 
CMOvE.( 17070). 0) 
CelZE(sUBsZz, SsUBSZ) 
LABEL ('COP\0') 
GS1ZE(CHRSZ, CHRSZ) 
MOVE (XHOME, YHOME) 
CMOVE (0.0, DWNSPC) 


NEWPEN (4) 

LTYPE(4) 

OCPOS (XHOME, YHOME) 
RINE (-XbINE, 0.0) 
MOVE (XHOME, YHOME) 
evevVE (ASHIFT 0.0) 
LABEL('F\0') 
SETFENT (JSMPLX) 


MewhKeEYCHR.EO.‘A*)GO TO 7850 

Babi INKEY (KEYCHR, RK) 

lhe YCHR.EO.*p’) KEYCHR="P'* 

Behe yYCHR.EO. 'n') KEYCHR='N' 

De KEYCHR.EO. 'a‘’) KEYCHR='A' 
MmeuneyCHR.BO.  P*) .OR. (KEYCHR.EO.'A'))GO TO 7850 
magn, CHR.BO. 0 ) “OR. (KEYCHR.EO. *q’))GO TO 17860 
Me REYCHR.EO. '0°)GO TO 7860 

GO TO 7860 


CALL PGRAF(4, 'PRN:\0") 

CALL GCLOSE 

CONTINUE 

IF (NFRAME.EO.MAXFRM)GO TO 17860 


[eke YCHR.EO.'A')GO TO 17850 

CALL INKEY (KEYCHR, K) 

ihe yCHR.EO. 'p')KEYCHR='P' 

[eKEYCHR.EO. 'n')KEYCHR='N' 

MeOREYCHR.EO.'a‘) KEYCHR='A’ 

Maer Ke YCHR.EO.'P') .OR. (KEYCHR.EO. 'A'))GO TO 17850 
Me KEYCHR.EO.*'0*)GO TO 17860 

GO TO 17860 


CALL PGRAF(4, 'PRN:\0') 
CALL GCLOSE 


Za5 


17860 CLOSE(7 (STATUS — hee) 


CLOSE(¢,S EaguS=—" KEEP” } 

IF (VORANS- EO.) ¥.) CLOSE (MVOR, sTAlUs— KEEEs 
IF (PRSANS. EO. *¥*) CLOSE (MPRs, STATUS— KEBE 
CALL NEWPEN (0) 

CALL HOME 

CALL GCLOSE 

CALL SETTAT 

SLOr 

END 


CCCCCCCECCCCCECEEC EEC CE CC CC CCC CCC CCC e eee eee eee 
CCCCCCCCCCCCCECECCCECCECCCCCCCCCECCCCECCCCCCC CCC CC CCC eC CeCe ee eee eae 


SUBROUTINE MOVIE (M) 

IMPLICIT COMPLEX (C,Z), INTEGER (I-N) 

CHARACTER RUNNO*3, KEYCHR*1, TITLE*80, BOGUS*1 

CHARACTER*1 COMNTS (61,5) 

COMMON/VORTEX/2ZV (300, 4) ,CV(300, 4) ,GV(300, 4) ,GV0(300,4), 
DGDT (300, 4) ,AGE (300, 4) ,GSHED(800, 4) , GLOST(800,4), 
GVMIN, GVOMIN, NNV (4) , NNB, NVMAX 

COMMON/ SAVE/XVORT (800) , YVORT (800) ,XSEP (800) , YSEP (800) , USEP (800) 

COMMON/TIMES/DELT, T (800) ,NT, NTMAX, NTSTOP 

COMMON/CONST/ ZONE, ZERO, ZFAC, ZI, ZPI, PI, TWOPI, P190, P1180, OV2PI, 
FOURPI 

COMMON/ SURFCE/Q (200) , PTOTAL (200) , PVORT (200) , PVELO (200), 
DX,NDX, XMAX, X (200) ,X1 (500) , TAU(500) , BLDISP (500), 
BLMOM (500) ,MSEP, F (200) , XBAR (200) 

COMMON / FLOW/RCORE, CINF, VINF, RMIN, BDISP, NOTOCH, AGECHK 

COMMON/MISC/RUNNO, NPLOTS, NCOMNT, COMNTS, IDATE, ITIME 


CCCCCCCCCCCCCCCECECCCCECEC CCE EC CCEC CECE CCE CEC EC CECE CCC CCS E CE CE Cee aaa 


Ee 
e 
& 


300 


1000 


2000 


READS UNFORMATTED DATA FOR EACH TIMESTEP 


READ (M) NT, T (NT) 

DO 300 NB=1,NNB 

READ (M) NNV (NB) 

DO 300 NV=1,NNV (NB) 

READ (M) ZV(NV,NB) ,GV(NV,NB) , GVO (NV,NB) , DGDT (NV, NB) 
DO 1000 I=1,NDX 

READ (M) X(I) ,O(1) ,PVELO(I),PVORT (I), PTOTAL(T) 
READ (M) MSEP 

DO 2000 I=1,MSEP 

READ (M) XI (I) , TAU (I), BLDISP (I) , BLMOM(TI) 
RETURN 

END 


CCCCCCCECE CEC CE CEE CECE CCE CC CC CCECCC CEE CE CECE CCE CCC CCCECE CCC CEE eae 
©: Of O1 ©; Of Of ©; O! OG; ©; ©! OO! Of O! OG; O/ ©; Of O! 6! OO! 6! O G; OO! O16! © OO! 01 61S, SSIS OS OES GHA HSS Sa Gade aIeaen 


SUBROUTINE SUMARY (M) 

IMPLI CEE COMP ER (7 2), ENTEGER (I =h) 

CHARACTER RUNNO*3, KEYCHR*1,TITLE* 80 

CHARACTER*1 COMNTS (61,5) 

COMMON / VORTEX/ZV (300, 4) ,CV(300, 4) ,GV(300,4) ,GV0(300,4), 


a DGDT (300, 4) ,AGE(300,4) ,GSHED(800,4),GLOST(800,4), 
Z 


GVMIN, GVOMIN, NNV (4) ,NNB, NVMAX 
COMMON /SAVE/XVORT (800) , YVORT (800) ,XSEP (800) , YSEP (800) , USEP (800) 
COMMON/TIMES/DELT, T (800) ,NT,NTMAX,NTSTOP 
COMMON/ CONST/ZONE, ZERO, ZFAC, ZI, ZPI, PI, TWOPI, PI190, PI180,0V2PI, 
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al FOURPI 
COMMON/SURFCE/Q (200) , PTOTAL (200) , PVORT (200) , PVELO(200), 

ip DX,NDX, XMAX, X (200) , XI (500) , TAU (500), BLDISP(500), 
Z BLMOM (500) ,MSEP, F (200) , XBAR(200) 

COMMON/ FLOW/RCORE, CINF, VINF, RMIN, BDISP, NOTOCH, AGECHK 
COMMON/MISC/RUNNO, NPLOTS, NCOMNT, COMNTS, IDATE, ITIME 


COMMON/MISC1/NHICUP 
Mmmeme ee CC Cee CECECeCCCCCCECCCCCCCCCCECECCCCCCCCCCCCCCCEECCCCCEEECCCCCC 
Cc 
Cc READS SUMMARY DATA 
c 


READ (M) IDATE, ITIME 
READ (M) NCOMNT 
IF (NCOMNT.EQ.0) GO TO 40 
DO 25 J=1,NCOMNT 
READ (M) (COMNTS (I,J) , I=1, 60) 
25 COMNTS (61,J)=0 
40 READ(M) RUNNO, DELT, RCORE, GVMIN, GVOMIN, BDISP 
READ (M) NHICUPS 
READ (M) NPLOTS 
READ (M) NNB 
READ (M) VINF, XMAX, DX, NDX 
READ (M) NTSTOP 
DO 400 I=1,NTSTOP 
READ (M)T(1I), (GSHED(I,NB) , GLOST (I, NB) ,NB=1,NNB) , XSEP(I),YSEP(I), 
1 USEP (I) ,XVORT (1) , YYORT (I) 
400 CONTINUE 
RETURN 
END 
Meee@ereme eCCCCCCCCCCCCCCCCCCCCCCCCccccccceccccececcccecceccceccccceecc 
MESGeeeeeecCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCCCcCCccccceccccccccc 
SUBROUTINE PRNTIT (MPRS,MVOR, PRSANS, VORANS) 
IMPLICIT COMPLEX (C, Z) , INTEGER (I-N) 
CHARACTER RUNNO*3 
CHARACTER*1 COMNTS (61,5), PRSANS, VORANS 
COMMON/VORTEX/2ZV (300, 4) ,CV(300, 4) ,GV(300, 4) ,GV0(300,4), 
il DGDT (300, 4) ,AGE(300, 4) , GSHED (800, 4) , GLOST (800, 4), 
2 GVMIN, GVOMIN, NNV (4) , NNB, NVMAX 
COMMON /SAVE/XVORT (800) , YYORT (800) , XSEP (800) , YSEP (800) , USEP (800) 
COMMON/TIMES/DELT,T (800) ,NT, NITMAX, NTSTOP 
COMMON/SURFCE/Q (200) , PTOTAL (200) , PVORT (200) , PVELO(200), 
1 DX,NDX, XMAX, X (200) , XI (500) , TAU(500) , BLDISP(500), 
2 BLMOM (500) ,MSEP, F (200) , XBAR(200) 
COMMON/MISC/RUNNO, NPLOTS, NCOMNT, COMNTS, IDATE, ITIME 
GmgieeeeececCCCCCCCCECCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCcccccccccccc 
c 
c PRINTS OUT DATA WHEN SO DIRECTED BY USER. 
a 
REAL GTOTAL (4) 
IF (VORANS.NE.'Y')GO TO 450 
WRITE (MVOR, 50) 
50 FORMAT (5 (5H*****,5HO0000) ) 
| WRITE (MVOR, 100) NT, T (NT) 
| WRITE (MVOR, 75) XSEP (NT) 
, 75 FORMAT (2X, 16HSEPARATION AT X=,F7.4) 
100 FORMAT (2X, 16HTIMESTEP NUMBER ,13,5X, SHTIME=, F8.4) 


pole 


130 
200 


Z42 
Zis 
274 
270 


300 
310 


500 


1000 


600 


650 


700 


2000 


800 
999 


NV2=0 
DO 200 NB=1,NNB 
IF (ABS (GSHED(NT,NB)) .LT.0.00001) GSHED (NT, NB) =-0.00001 
NV3=NNV (NB) 
IF (NV32E9F24)GO Tes200 
GTOTAL (NE) =One 
DO 190 NV=1,NV3 
GTOTAL (NB) =GTOTAL (NB) +GV (NV, NB) 
NV2=MAX0 (NV2,NNV (NB) ) 
IF (NNB.EQ.2) WRITE (MVOR, 272) 
IF (NNB.EQ.3)WRITE(MVOR, 273) 
IF (NNB.EQ. 4) WRITE (MVOR, 274) 
FORMAT (8X, 2HNV, 2X, 2 (6X, SHPOSITION, 6X, 5HGAMMA, 3X) ) 
FORMAT (8X, 2HNV, 2X, 3(6X, SHPOSITION, 6X, SHGAMMA, 3X) ) 
FORMAT (8X, 2HNV, 2X, 4(6X, SHPOSITION, 6X, 5HGAMMA, 3X) ) 
TEP (NV2Z2 2 GO se 450 
DO 300 NV=1,NV2 
WRITE (MVOR, 310) NV, (ZV (NV, NB) , GV(NV, NB) , NB=1, NNB) 
CONTINUE 
FORMAT (7X,13,2X,4(F8.4,1H,,F8.4,1X,F7.4, 3X) ) 
IF (NNB.EQ.2)WRITE(MVOR, 352) (GTOTAL(NB), 
(100.*GTOTAL (NB) /GSHED (NT, NB) ) , NB=1, NNB) 
IF (NNB.EQ.3)WRITE(MVOR, 353) (GTOTAL(NB), 
(100. *GTOTAL (NB) /GSHED (NT, NB) ) ,NB=1,NNB) 

IF (NNB.EQ.4)WRITE(MVOR, 354) (GTOTAL(NB), 
(100.*GTOTAL (NB) /GSHED (NT, NB) ) ,NB=1, NNB) 
FORMAT (1X, 1ZHGTOTAL/ @RMNG, 2(14X%,F7.47 7°) rSs i 1s") 
FORMAT (1X, 12HGTOTAL/ &RMNG, 3 (14X, F7.4, '/', F5.1, '%')) 
FORMAT (1X, 12HGTOTAL/$RMNG, 4 (14X,F7.4,'/',F5.1, '%')) 
IF (PRSANS.NE.'Y')GO TO 999 

WRITE (MPRS, 50) 
WRITE (MPRS, 100) NT, T (NT) 
WRITE (MPRS, 500) 


FORMAT (/3X,3H I ,4X, 10H x SPS IMG) a 0 AIS) 
Oe EAS , 24, [OH SPEVORT 7,24, 10H Sel CrAl oo, 
10H E PPG SLO XBAR_ ) 


DO 1000 I=1,NDX 
WRITE(MPRS,600)1,X(1),O(1) 7 PVELO(1)> PVORT (TP Terai Tine 
XBAR (I) 
FORMAT (2X, 13, 7(3X, F10.4) ) 
WRITE (MPRS, 650) MSEP 
FORMAT (/2X,13,' POINTS USED IN CALCULATING SEPARATION POINT') 
WRITE (MPRS, 700) 
FORMAT (/2X, 3HSTN, 3X, 10H XI Peo Gr SUI: TAU ey. 
JOH. BLDISEMe, 4, OH BLMOM _) 
DO 2000 I=1,MSEP 
WRITE (MPRS, 800) 1,X1I (1), TAU(T) 7 BLDISE(1), BLMGM(a 
FORMAT (2%, 13, 2(2x%, 5 1024)) 
RETURN 
END 


CCCCCCCCCCCCCCCECCECCCECCCCCCECCECE CCE CECE ECE CEC CCE CC Ce ee eee CeCe Cee ee eee 
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SUBROUTINE FIVEPT (PIN, POUT, NDIM) 
DIMENSION PIN(200) , POUT (200) 


CCCCCCCCCCCCCCCCCECCCCCCCCCCCCE CCE CCE ECE CECE CEC EC ECC ES SCC CCC CC CCC Ceres 


Cc 
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ee ee a 


100 


200 


SMOOTHING ROUTINE PROPOSED BY LONGUET-HIGGINS AND COCKELET 
Pleo, PROG Roy. SOC. “SER: A; 350, PP. f=26. 


DO 100 I=1,NDIM 
Peur(t)=PIN{1) 

DO 200 I=3,NDIM-2 
PM2=PIN (I-2) 
PM1=PIN(I-1) 

P =PIN(TI) 
PP1=PIN (I+1) 
PeZ—PIN(I+2) 

eur (i )=(—PM2Z+4, *PM1+10.*P+4.*PP1—PP2)/16. 
RETURN 

END 


Peewee ccCCCCCCCCCCCECCCCCCCCCCCCCCCCECCCCCCCCCCCECCCCCCCCCCCCCECCCCECCC 
pe @imemerceeCeCCCCECECCCECCCECCECCCECCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECECCC 


SUBROUTINE PSMUTH (PLOWER, PUPPER, PIN, POUT, NDIM) 
DEMENSION PIN (200) , POUT (200) , P1 (200) ,P2(200) 


me mmmm@ierm cee OCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCECCCCCECCCCECCC 


Clr GremGl- Cl Cy Cast) Cy Cy 


20 


SMOOTHING ROUTINE, ORIGINALLY DEVELOPED FOR THE PRESSURE 
DISTRIBUTION, BUT APPROPRIATE FOR ANY CURVE TO BE SMOOTHED. 

LOOK AT PROBLEM IN TERMS OF MAXIMUM PRESSURE MAGNITUDE WHICH 
COULD BE PRODUCED IN INVISCID CASE AS MAJOR VORTEX PASSES OVER 
PLATE. LOP OFF THESE EXCURSIONS BEFORE UTILIZING A SMOOTHING 
ROUTINE TO FURTHER IMPROVE THE DATA FOR INTEGRATION. PUPPER AND 
PLOWER ARE THE LIMITS SET FOR REALISTIC DATA, SPECIFIED AS INPUT 
ARGUMENTS WHEN CALLING PSMUTH. 


ITS=10 

FACTOR=0. 8 

DO 50 I=1,NDIM 

Pl (I)=PIN (I) 

P2 (I) =PIN (I) 

DO 150 I=1,I1TS 

iver (l) .GT.PUPPER) P1(1) = 


1 FACTOR*PUPPER*P1 (1) /ABS(P1(1 yy) 


WeeePl(l]) .LT.PLOWER) Pl (1} = 


1 FACTOR*PLOWER*P1 (1) /ABS (P1(1 )) 


IF (P1(NDIM) .GT.PUPPER) Pl (NDIM) = 
FACTOR* PUPPER* Pl (NDIM) /P1 (NDIM) 
IF (P1(NDIM) .LT.PLOWER) Pl (NDIM) = 


1 FACTOR*PLOWER*P1 (NDIM) /P1 (NDIM) 


KGOOD=1 

DO 100 K=1,NDIM 

Peete) (K) .GT.PUPPER) -OR. (P1(K).LT.PLOWER))GO TO 100 
TF (KGOOD.EQ. (K-1) .OR.K.EQ.1)GO TO 90 
DO 60 J=KGOOD, (K-1) 

P2 (J) =P1 (KGOOD) 

KGOOD=K 

CONTINUE 

xb FLIVEPT (PZ, P2Z,NDIM) 

DO 140 K=2,NDIM-1 

Ee(K) =P2 (K) 

CONTINUE 

DO 160 I=1,NDIM 
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160 POUT (1 )—Pity) 
RETURN 
END 
CCCCCCCCCCCCEECCCECECECCECCCCCCECECCCCECEEC ECC CEC CCC eee ee eee ee aa 
CCCCCCCCCCCCCEEECCECCEECCCECCCECCCCCECECCCCECEC CECE CEE CE CEC CECE CE CeCe eee 
SUBROUTINE FORMOM 
COMMON/SURFCE/Q (200) , PTOTAL (200) , PVORT (200) , PVELO (200), 
1 DX, NDX, XMAX,X (200) ,X1 (500) , TAU (500) , BLDISP (50Gn@ 
2 BLMOM (500) ,MSEP, F (200) ,XBAR(200) 
CCCCCCCCCCCCCCCCCCCCCCC CCC CCC OC CCC COC CC COC CC Oe CC OC CC eee ee eee ene 
Cc 


‘e CALCULATES FORCE AND MOMENT FOR DURATION OF THE RUN 
€ 

FMIN=0.001 

FORCE=0.0 

RMOMNT=0. 0 


DO 200 I=1,NDX 

FORCE=FORCE+PTOTAL (T) 

RMOMNT=RMOMNT+PTOTAL (I) *X (I) 

(I) =-FoORCE, »x 

IF (ABS (FORCE) . LT. FMIN) FORCE=SIGN (FMIN, FORCE) 

200 XBAR(I)=RMOMNT/FORCE 

RETURN 

END 
cecceececcccccccccccccecccccecececececcccececceccceccececC CCC CC CEC Ceres 
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC CCE CC ECC CCC CCC CCC CEC CC CCC CCC eee 

SUBROUTINE AXES (AMAX, SPCNG, DELORD, NSPCS) 

DELORD=1 . 0 
cecececceccccceccececcceccecCcCecccccccccccc Cece cee CE CECE CCCCC CC CCC CESS eae 
Cc 
g PERFORMS INTELLIGENT SCALING OF THE AXES, BASED UPON DATA TO BE 
© PEOTTED:. 
& 


SPCNG=0.2 
NSPCS=5 
ORDMAX=ABS (AMAX) 


IF (ORDMAX.GE.5.0) SPCNG=1.0 
IF (ORDMAX.GE.5.0)NSPCS=5 
IF (ORDMAX. GE.5.0) DELORD=5.0 


IF (ORDMAX.GE.10.0) SPCNG=1.0 
IF (ORDMAX. GE.10.0)NSPCS=5 
IF (ORDMAX.GE.10.0) DELORD=5.0 


IF (ORDMAX.GE.50.0) SPCNG=5.0 
IF (ORDMAX.GE.50.0)NSPCS=2 
IF (ORDMAX.GE.50.0) DELORD=10.0 


IF (ORDMAX. GE.100.0) SPCNG=10.0 
IF (ORDMAX. GE.100.0)NSPCS=5 
IF (ORDMAX.GE.100.0) DELORD=50.0 


IF (ORDMAX.GE.200.0) SPCNG=10.0 


IF (ORDMAX.GE.200.0)NSPCS=5 
IF (ORDMAX.GE.200.0) DELORD=50.0 
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RETURN 
END 
meer ee Cee Ole eCCCCCCCCUCCEC CEC CE CCC CE CCEC CC ECE CC CECCOCCECCECECCCEECEEECC 
wee emer CCCCECCECCCCECCCCCCCCCCCCECCCCCCCCCCCECCECCCCCCCCCCCCCCECCCCCCCE 
FUNCTION SIGMA(NB) 
IME DiClLT COMPLEX (C, 2), INTEGER(I-N) 
COMMON /VORTEX/ZV (300, 4) ,CV(300, 4) ,GV(300,4) ,GV0(300, 4), 
1 DGDT (300, 4) ,AGE(300,4) ,GSHED(800,4),GLOST(800,4), 
2 GVMIN, GVOMIN, NNV (4) ,NNB, NVMAX 
memmeweec CCCCOECCCCCcececeCecececccccecccccceccecccccceccceccccccececcccccccccce 
e 
3 SUMS VORTICITY WITHIN THE DESTRED CLUSTER. 
c 
SUM=0 . 0 
PeiNNV(NB).LT.1)GO TO 200 
DO 100 NV=1,NNV (NB) 
SUM=SUM+GV (NV, NB) 
100 CONTINUE 
200 SIGMA=SUM 
RETURN 
END 
ammmmmmeeecCeCCCCCCCECeECCCCCCCCCeccecececccccecccecccecccc CCCCCCCCCCCCCC 
meme ecece eC CCCCCCCCCCCCCCCCCECCCCCCCCCCCCECECCECCCCCCCCCCCCCCCCCCCCC 
SUBROUTINE NOZERO (X, Y,NDIM) 
DIMENSION X(800),Y(800) 
fem eee CCCCCCCCCCCCCECCCCCCCCCCCCCCCCCCCCCCCECCCCCCCCCCCCCCCCCCCCCCCC 
c 
& REMOVES ZERO DATA POINTS FROM THE DATA TO FACILITATE PRINTOUT OF 
iS THE DATA. 
‘S 


DO 100 I=1,NDIM-1 
CALL MOVE (X(I),Y(TI) ) 
imei.) 60.0.0) .OR.(Y(It1)..EQO.0.0))GO TO 100 
Genk LINE (X(I+1) ,Y(1I+1) ) 
100 CONTINUE 
RETURN 
END 
Me@eeeeec ee CCCCCCCccccccccecccccccccccccceccecccecececceececeececeecececceccc 
mmeemmmeeece CCCCCCCCCCCCCCCCCccccccecccceceecececceeccececcececececeecccce 
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